home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 January / macpower199701.bin / AMUG / Publishing_19 / Alpha 6.5.sit / Tcl / Modes / latexMacros.tcl < prev    next >
Encoding:
Text File  |  1996-08-15  |  91.9 KB  |  3,192 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexMacros.tcl (called from latex.tcl)
  5. #
  6. #############################################################################
  7. #
  8. # Author:  Tom Scavo <trscavo@syr.edu>
  9. #
  10. #############################################################################
  11. #############################################################################
  12.  
  13. #############################################################################
  14. # 
  15. # Basic Commands
  16. #
  17. #############################################################################
  18.  
  19. #--------------------------------------------------------------------------
  20. # Goto:
  21. #--------------------------------------------------------------------------
  22.  
  23. # Switch to (but don't execute) any of the following applications.
  24. proc latex {} {
  25.     global texSig texAppSig
  26.     set supportedApps [array names texAppSig]
  27.     foreach app $supportedApps { lappend sigs $texAppSig($app) }
  28.     set longPrompt "Please locate your TeX app."
  29.     if { [catch {launchBackApplSigs $sigs texSig $longPrompt} appname] } {
  30.         error "bug in 'launchBackApplSigs'"
  31.     }
  32.     set quotedSig "'[string trim $texSig {'}]'"
  33.     switchTo $quotedSig
  34. }
  35. proc bibtex {} {
  36.     global bibtexSig bibtexAppSig
  37.     set supportedApps [array names bibtexAppSig]
  38.     foreach app $supportedApps { lappend sigs $bibtexAppSig($app) }
  39.     set longPrompt "Please locate your BibTeX app."
  40.     if { [catch {launchBackApplSigs $sigs bibtexSig $longPrompt} appname] } {
  41.         error "bug in 'launchBackApplSigs'"
  42.     }
  43.     set quotedSig "'[string trim $bibtexSig {'}]'"
  44.     switchTo $quotedSig
  45. }
  46. proc makeindex {} {
  47.     global makeindexSig makeindexAppSig
  48.     set supportedApps [array names makeindexAppSig]
  49.     foreach app $supportedApps { lappend sigs $makeindexAppSig($app) }
  50.     set longPrompt "Please locate your MakeIndex app."
  51.     if { [catch {launchBackApplSigs $sigs makeindexSig $longPrompt} appname] } {
  52.         error "bug in 'launchBackApplSigs'"
  53.     }
  54.     set quotedSig "'[string trim $makeindexSig {'}]'"
  55.     switchTo $quotedSig
  56. }
  57.  
  58. # Find the next or previous environment.  Search forward (or backward, 
  59. # depending on $forward) for either ¥begin or ¥end.  If ¥begin is found, 
  60. # search forward for corresponding ¥end; otherwise, search backward for 
  61. # corresponding ¥begin.  Select the found environment, or display an 
  62. # error message if no environment is found.
  63. proc findEnvironment {forward} {
  64.     set searchString1 {^[ ¥t]*¥¥begin¥{[^¥{¥}]*¥}|¥¥end¥{[^¥{¥}]*¥}[ ¥t]*¥r?}
  65.     set searchPos [getPos]
  66.     if { [isSelection] } then { 
  67.         if { $forward } then {
  68.             set searchPos [selEnd]
  69.         } else {
  70.             set searchPos [expr $searchPos - 1]
  71.         }
  72.     } else {
  73.         if { $forward } then {
  74.             set searchPos [expr $searchPos + 1]
  75.         } else {
  76.             set searchPos [expr $searchPos - 1]
  77.         }
  78.     }
  79.     set searchResult [search -s -f $forward -r 1 -n $searchString1 $searchPos]
  80.     if {[string length $searchResult]} then {
  81.         set begPos [lindex $searchResult 0]
  82.         set endPos [lindex $searchResult 1]
  83.         set searchText [getText $begPos $endPos]
  84.         regexp {¥{(.*)¥}} $searchText dummy envName
  85.         if {[string match {*begin*} $searchText]} {
  86.             set begEnv $begPos
  87.             append searchString2 {¥¥end¥{} $envName {¥}[ ¥t]*¥r?}
  88.             set searchPos $endPos
  89.             set searchResult [search -s -f 1 -r 1 -n $searchString2 $searchPos]
  90.             if {[string length $searchResult]} {
  91.                 set endPos [lindex $searchResult 1]
  92.                 return [list $begPos $endPos]
  93.             } else {
  94.                 return "matching ¥¥end not found"
  95.             }
  96.         } else {
  97.             set endEnv $endPos
  98.             append searchString2 {^[ ¥t]*¥¥begin¥{} $envName {¥}}
  99.             set searchPos $begPos
  100.             set searchResult [search -s -f 0 -r 1 -n $searchString2 $searchPos]
  101.             if {[string length $searchResult]} {
  102.                 set begPos [lindex $searchResult 0]
  103.                 return [list $begPos $endPos]
  104.             } else {
  105.                 return "matching ¥¥begin not found"
  106.             }
  107.         }
  108.     } else {
  109.         if { $forward } then {
  110.             return "next environment not found"
  111.         } else {
  112.             return "previous environment not found"
  113.         }
  114.     }
  115. }
  116.  
  117. proc prevEnvironment {} {
  118.     global searchNoisily
  119.     set findResult [findEnvironment 0]
  120.     if {[llength $findResult] == 2} then {
  121.         goto [lindex $findResult 0]
  122.     } else {
  123.         if {$searchNoisily} {beep}
  124.         message $findResult
  125.     }
  126. }
  127. proc nextEnvironment {} {
  128.     global searchNoisily
  129.     set findResult [findEnvironment 1]
  130.     if {[llength $findResult] == 2} then {
  131.         goto [lindex $findResult 0]
  132.     } else {
  133.         if {$searchNoisily} {beep}
  134.         message $findResult
  135.     }
  136. }
  137. proc prevEnvironmentSelect {} {
  138.     global searchNoisily
  139.     set forward 0
  140.     set findResult [findEnvironment $forward]
  141.     if {[llength $findResult] == 2} then {
  142.         set endPos [lindex $findResult 1]
  143. #         if { [regexp {¥r} [lookAt [expr $endPos + 1]]] } then {
  144. #             set endPos [expr $endPos + 1]
  145. #         }
  146.         select [lindex $findResult 0] $endPos
  147.     } else {
  148.         if { $searchNoisily } {beep}
  149.         message $findResult
  150.     }
  151. }
  152. proc nextEnvironmentSelect {} {
  153.     global searchNoisily
  154.     set forward 1
  155.     set findResult [findEnvironment $forward]
  156.     if {[llength $findResult] == 2} then {
  157.         set endPos [lindex $findResult 1]
  158. #         if { [regexp {¥r} [lookAt [expr $endPos + 1]]] } then {
  159. #             set endPos [expr $endPos + 1]
  160. #         }
  161.         select [lindex $findResult 0] $endPos
  162.     } else {
  163.         if { $searchNoisily } {beep}
  164.         message $findResult
  165.     }
  166. }
  167.  
  168. # Find a LaTeX command in either direction.  It's up to the calling
  169. # procedure to pass the correct starting position of the search.
  170. proc findCommand {pos direction} {
  171. #    Handle "¥ " and "¥[" separately:
  172.     set searchString {(¥¥([^a-zA-Z¥t¥r* []|[a-zA-Z]+)¥*?)|([^¥¥]¥¥¥ )|([^¥¥]¥¥¥[)}
  173.     set searchResult [search -s -f $direction -r 1 -n $searchString $pos]
  174.     if { [string length $searchResult] } {
  175.         set begPos [lindex $searchResult 0]
  176.         set endPos [lindex $searchResult 1]
  177.         set lastChar [lookAt [expr $endPos - 1]]
  178.         if {$lastChar == "¥ " || $lastChar == "¥["} then {
  179.             return [list [expr $begPos + 1] $endPos]
  180.         } else {}
  181.     }
  182.     return $searchResult
  183. # Handles everything but "¥ " and "¥[":
  184. #     set searchString {¥¥([^a-zA-Z¥t¥r* []|[a-zA-Z]+)¥*?}
  185. #     return [search -s -f $direction -r 1 -n $searchString $pos]
  186. }
  187. # Find and goto the beginning of the previous LaTeX command.
  188. proc prevCommand {} {
  189.     global searchNoisily
  190.     set pos [getPos]
  191.     if {$pos > 0} then {
  192.         set searchResult [findCommand [expr $pos - 1] 0]
  193.         if { [string length $searchResult] } {
  194.             goto [lindex $searchResult 0]
  195.             return
  196.         } else {}
  197.     }
  198.     if { $searchNoisily } {beep}
  199.     message "previous command not found"
  200. }
  201. # Find and goto the beginning of the next LaTeX command.
  202. proc nextCommand {} {
  203.     global searchNoisily
  204.     set pos [getPos]
  205.     if {$pos < [maxPos]} then {
  206.         set searchResult [findCommand [expr $pos + 1] 1]
  207.         if { [string length $searchResult] } {
  208.             goto [lindex $searchResult 0]
  209.             return
  210.         } else {}
  211.     }
  212.     if { $searchNoisily } {beep}
  213.     message "next command not found"
  214. }
  215. # Select the previous LaTeX command, but do not attempt to select
  216. # any associated argument.
  217. proc prevCommandSelect {} {
  218.     global searchNoisily
  219.     set pos [getPos]
  220.     if {$pos > 0} then {
  221.         set searchResult [findCommand [expr $pos - 1] 0]
  222.         if { [string length $searchResult] } {
  223.             eval select $searchResult
  224.             return
  225.         } else {}
  226.     }
  227.     if { $searchNoisily } {beep}
  228.     message "previous command not found"
  229. }
  230. # Select the next LaTeX command, but do not attempt to select
  231. # any associated argument.
  232. proc nextCommandSelect {} {
  233.     global searchNoisily
  234.     set pos [getPos]
  235.     if {$pos < [maxPos]} then {
  236.         if { [isSelection] } then {
  237.             set pos [expr $pos + 1]
  238.         }
  239.         set searchResult [findCommand $pos 1]
  240.         if { [string length $searchResult] } {
  241.             eval select $searchResult
  242.             return
  243.         } else {}
  244.     }
  245.     if { $searchNoisily } {beep}
  246.     message "next command not found"
  247. }
  248.  
  249. # Find a LaTeX command with arguments in either direction.  It's up 
  250. # to the calling procedure to pass the starting position of the search.
  251. # (Handles everything but "¥ " and commands whose arguments contain
  252. # embedded braces.)
  253. proc findCommandWithArgs {pos direction} {
  254.     set searchString {¥¥([^a-zA-Z¥t¥r]|[a-zA-Z]+¥*?)(¥[.*¥])*({[^{}]*})*}
  255.     return [search -s -f $direction -r 1 -n $searchString $pos]
  256. }
  257. # Select the previous LaTeX command and any associated arguments.
  258. proc prevCommandSelectWithArgs {} {
  259.     global searchNoisily
  260.     set pos [getPos]
  261.     if {$pos > 0} then {
  262.         set searchResult [findCommandWithArgs [expr $pos - 1] 0]
  263.         if { [string length $searchResult] } {
  264.             eval select $searchResult
  265.             return
  266.         } else {}
  267.     }
  268.     if { $searchNoisily } {beep}
  269.     message "previous command not found"
  270. }
  271. # Select the next LaTeX command and any associated arguments.
  272. proc nextCommandSelectWithArgs {} {
  273.     global searchNoisily
  274.     set pos [getPos]
  275.     if {$pos < [maxPos]} then {
  276.         if { [isSelection] } then {
  277.             set pos [expr $pos + 1]
  278.         }
  279.         set searchResult [findCommandWithArgs $pos 1]
  280.         if { [string length $searchResult] } {
  281.             eval select $searchResult
  282.             return
  283.         } else {}
  284.     }
  285.     if { $searchNoisily } {beep}
  286.     message "next command not found"
  287. }
  288.  
  289. # Find a LaTeX sectioning command in either direction.  It's up to 
  290. # the calling procedure to pass the starting position of the search.
  291. proc findSection {pos direction} {
  292.     global funcExprAlt
  293.     return [search -s -f $direction -r 1 -n $funcExprAlt $pos]
  294. }
  295. # Select the previous LaTeX sectioning command.
  296. proc prevSection {} {
  297.     global searchNoisily
  298.     set pos [getPos]
  299.     if {$pos > 0} then {
  300.         set searchResult [findSection [expr $pos - 1] 0]
  301.         if { [string length $searchResult] } {
  302.             eval select $searchResult
  303.             return
  304.         } else {}
  305.     }
  306.     if { $searchNoisily } {beep}
  307.     message {previous section not found}
  308. }
  309. # Select the next LaTeX sectioning command.
  310. proc nextSection {} {
  311.     global searchNoisily
  312.     set pos [getPos]
  313.     if {$pos < [maxPos]} then {
  314.         if { [isSelection] } then {
  315.             set pos [expr $pos + 1]
  316.         }
  317.         set searchResult [findSection $pos 1]
  318.         if { [string length $searchResult] } {
  319.             eval select $searchResult
  320.             return
  321.         } else {}
  322.     }
  323.     if { $searchNoisily } {beep}
  324.     message {next section not found}
  325. }
  326. proc prevSectionSelect {} {
  327.     global searchNoisily
  328.     set pos [getPos]
  329.     if {$pos > 0} then {
  330.         set searchResult [findSection [expr $pos - 1] 0]
  331.         if { [string length $searchResult] } {
  332.             set begPos [lindex $searchResult 0]
  333.             set searchPos [expr [lindex $searchResult 1] + 1]
  334.             set searchResult [findSection $searchPos 1]
  335.             if { [string length $searchResult] } {
  336.                 set endPos [lindex $searchResult 0]
  337.             } else {
  338.                 set searchResult [search -s -f 1 -r 0 -n "¥¥end{document}" $searchPos]
  339.                 set endPos [lindex $searchResult 0]
  340.             }
  341.             select $begPos $endPos
  342.             return
  343.         } else {}
  344.     }
  345.     if { $searchNoisily } {beep}
  346.     message {previous section not found}
  347. }
  348. # Select the next LaTeX sectioning command.
  349. proc nextSectionSelect {} {
  350.     global searchNoisily
  351.     set pos [getPos]
  352.     if {$pos < [maxPos]} then {
  353.         if { [isSelection] } then {
  354.             set pos [expr $pos + 1]
  355.         }
  356.         set searchResult [findSection $pos 1]
  357.         if { [string length $searchResult] } {
  358.             set begPos [lindex $searchResult 0]
  359.             set searchPos [expr [lindex $searchResult 1] + 1]
  360.             set searchResult [findSection $searchPos 1]
  361.             if { [string length $searchResult] } {
  362.                 set endPos [lindex $searchResult 0]
  363.             } else {
  364.                 set searchResult [search -s -f 1 -r 0 -n "¥¥end{document}" $searchPos]
  365.                 set endPos [lindex $searchResult 0]
  366.             }
  367.             select $begPos $endPos
  368.             return
  369.         } else {}
  370.     }
  371.     if { $searchNoisily } {beep}
  372.     message {next section not found}
  373. }
  374.  
  375. # Find a LaTeX subsectioning command in either direction.  It's up to 
  376. # the calling procedure to pass the starting position of the search.
  377. proc findSubsection {pos direction} {
  378.     global funcExpr
  379.     return [search -s -f $direction -r 1 -n $funcExpr $pos]
  380. }
  381. proc prevSubsection {} {
  382.     global searchNoisily
  383.     set pos [getPos]
  384.     if {$pos > 0} then {
  385.         set searchResult [findSubsection [expr $pos - 1] 0]
  386.         if { [string length $searchResult] } {
  387.             eval select $searchResult
  388.             return
  389.         } else {}
  390.     }
  391.     if { $searchNoisily } {beep}
  392.     message {previous (sub)*section not found}
  393. }
  394. # Select the next LaTeX sectioning command.
  395. proc nextSubsection {} {
  396.     global searchNoisily
  397.     set pos [getPos]
  398.     if {$pos < [maxPos]} then {
  399.         if { [isSelection] } then {
  400.             set pos [expr $pos + 1]
  401.         }
  402.         set searchResult [findSubsection $pos 1]
  403.         if { [string length $searchResult] } {
  404.             eval select $searchResult
  405.             return
  406.         } else {}
  407.     }
  408.     if { $searchNoisily } {beep}
  409.     message {next (sub)*section not found}
  410. }
  411. proc prevSubsectionSelect {} {
  412.     global searchNoisily
  413.     set pos [getPos]
  414.     if {$pos > 0} then {
  415.         set searchResult [findSubsection [expr $pos - 1] 0]
  416.         if { [string length $searchResult] } {
  417.             set begPos [lindex $searchResult 0]
  418.             set endPos [lindex $searchResult 1]
  419.             set searchPos [expr $endPos + 1]
  420.             set commandName [extractCommandName [getText $begPos $endPos]]
  421.             if {[string match {section*} $commandName]} then {
  422.                 set searchResult [findSection $searchPos 1]
  423.             } else {
  424.                 set searchResult [findSubsection $searchPos 1]
  425.             }
  426.             if { [string length $searchResult] } {
  427.                 set endPos [lindex $searchResult 0]
  428.             } else {
  429.                 set searchResult [search -s -f 1 -r 0 -n "¥¥end{document}" $searchPos]
  430.                 set endPos [lindex $searchResult 0]
  431.             }
  432.             select $begPos $endPos
  433.             return
  434.         } else {}
  435.     }
  436.     if { $searchNoisily } {beep}
  437.     message {previous (sub)*section not found}
  438. }
  439. # Select the next LaTeX sectioning command.
  440. proc nextSubsectionSelect {} {
  441.     global searchNoisily
  442.     set pos [getPos]
  443.     if {$pos < [maxPos]} then {
  444.         if { [isSelection] } then {
  445.             set pos [expr $pos + 1]
  446.         }
  447.         set searchResult [findSubsection $pos 1]
  448.         if { [string length $searchResult] } {
  449.             set begPos [lindex $searchResult 0]
  450.             set endPos [lindex $searchResult 1]
  451.             set searchPos [expr $endPos + 1]
  452.             set commandName [extractCommandName [getText $begPos $endPos]]
  453.             if {[string match {section*} $commandName]} then {
  454.                 set searchResult [findSection $searchPos 1]
  455.             } else {
  456.                 set searchResult [findSubsection $searchPos 1]
  457.             }
  458.             if { [string length $searchResult] } {
  459.                 set endPos [lindex $searchResult 0]
  460.             } else {
  461.                 set searchResult [search -s -f 1 -r 0 -n "¥¥end{document}" $searchPos]
  462.                 set endPos [lindex $searchResult 0]
  463.             }
  464.             select $begPos $endPos
  465.             return
  466.         } else {}
  467.     }
  468.     if { $searchNoisily } {beep}
  469.     message {next (sub)*section not found}
  470. }
  471.  
  472. proc gotoTabStop {dirIndicator} {
  473.     set pos [getPos]
  474.     if {$dirIndicator} then {
  475.         if {$pos == [maxPos]} { return 0 }
  476.     } else {
  477.         if {$pos == 0} { return 0 }
  478.         # Fixes a bug in 'search':
  479.         set pos [expr $pos - 1]
  480.     }
  481.     set searchResult [search -s -n -f $dirIndicator -m 0 -i 1 -r 0 {･} $pos]
  482.     if {[string length $searchResult]} then {
  483.         goto [lindex $searchResult 0]
  484.         return 1
  485.     } else {
  486.         return 0
  487.     }
  488. }
  489. proc nextTabStop {} {
  490.     global searchNoisily
  491.     set forward 1
  492.     if { [gotoTabStop $forward] } then {
  493.         deleteChar
  494.     } else {
  495.         if { $searchNoisily } {beep}
  496.         message "tab stop not found"
  497.     }
  498. }
  499. proc prevTabStop {} {
  500.     global searchNoisily
  501.     set forward 0
  502.     if { [gotoTabStop $forward] } then {
  503.         deleteChar
  504.     } else {
  505.         if { $searchNoisily } {beep}
  506.         message "tab stop not found"
  507.     }
  508. }
  509. # Goto the nth tab stop.  A nonzero argument is non-interactive
  510. # (for use in Tcl procs) and not validated.
  511. proc nthTabStop {{numTabStops 0}} {
  512.     global searchNoisily promptNoisily useStatusBar
  513.     if { $numTabStops == 0 } then {
  514.         if { $promptNoisily && $useStatusBar } { beep }
  515.         catch {sPrompt "How many tab stops?" "3"} numTabStops
  516.         if { $numTabStops == "cancel" || $numTabStops == 0 } then {
  517.             return
  518.         } elseif { ![isInteger $numTabStops] } then {
  519.             beep
  520.             message "invalid input:  integer required"
  521.             return
  522.         }
  523.     }
  524.     set currentPos [getPos]
  525.     if { $numTabStops > 0 } { set forward 1 } { set forward 0 }
  526.     set maxits [expr abs($numTabStops)]
  527.     if { ![gotoTabStop $forward] } then {
  528.         if { $searchNoisily } {beep}
  529.         message "tab stop not found"
  530.         goto $currentPos
  531.         return
  532.     }
  533.     for { set i 1 } { $i < $maxits } { incr i } {
  534.         if { $forward } { forwardChar } { backwardChar }
  535.         if { ![gotoTabStop $forward] } then {
  536.             if { $searchNoisily } { beep }
  537.             message "tab stop not found"
  538.             goto $currentPos
  539.             return
  540.         }
  541.     }
  542.     deleteChar
  543. }
  544.  
  545. #--------------------------------------------------------------------------
  546. # Utilities:
  547. #--------------------------------------------------------------------------
  548.  
  549. # A keyboard-bound method of accessing menu commands.  Takes a list of 
  550. # menu items (i.e., the tail of a 'menu' command), the menu name (the 
  551. # argument of the '-n' switch) , and the name of a menu filter (the 
  552. # argument of the '-p' switch) as input, and displays these items in a 
  553. # list box.  If the chosen item is a menu command (as opposed to a 
  554. # submenu), it is passed to the menu filter; otherwise, 'chooseCommand' 
  555. # recursively calls itself until a menu command is chosen or the cancel 
  556. # button is pressed.
  557. #
  558. proc chooseCommand {menuItems {menuName ""} {menuFilterProc ""} {level 1}} {
  559.     watchCursor
  560.     if { $menuItems == "" } { return }
  561.     # Preprocess the list of menu items:
  562.     foreach    item $menuItems {
  563.         regsub -all {[<!/].} $item {} item
  564.         regsub -all {ﾉ}    $item {} item
  565.         lappend    menOut $item
  566.         if { [string match "menu*" $item] } {
  567.             if { [set ind [lsearch $item {-n}]] >= 0 } {
  568.                 lappend    top "[lindex $item [incr    ind]]:"
  569.             }
  570.         } elseif { ![string match "(*" $item] } {
  571.             lappend    top $item
  572.         }
  573.     }
  574.     # Present the menu items to the user:
  575.     set res    [listpick -p "Choose menu command (level $level):" $top]
  576.     # Either execute a command or recurse on a submenu:
  577.     if { [lsearch $menOut $res] >= 0 } {
  578.         # Execute the command via the menu filter, if necessary:
  579.         if { $menuFilterProc == "" } {
  580.             $res
  581.         } else {
  582.             $menuFilterProc $menuName $res
  583.         }
  584.     } else {
  585.         set res [string trimright $res {:}]
  586.         foreach    item $menOut {
  587.             if { [lsearch $item $res] >= 0 } {
  588.                 set menuItems [lindex $item end]
  589.                 # Determine the name of this submenu:
  590.                 if { [set ind [lsearch $item {-n}]] >= 0 } {
  591.                     set menuName [lindex $item [incr ind]]
  592.                 } else {
  593.                     set menuName ""
  594.                 }
  595.                 # Determine the name of the menu filter for this submenu:
  596.                 if { [set ind [lsearch $item {-p}]] >= 0 } {
  597.                     set menuFilterProc [lindex $item [incr ind]]
  598.                 } else {
  599.                     set menuFilterProc ""
  600.                 }
  601.                 return [chooseCommand $menuItems $menuName $menuFilterProc [incr level]]
  602.             }
  603.         }
  604.     }
  605. }
  606.  
  607. proc insertLiteralTab {} {
  608.     if {[isSelection]} then {
  609.         deleteSelection
  610.     }
  611.     insertText "¥t"
  612. }
  613.  
  614. proc insertTabStop {} {
  615.     if {[isSelection]} then {
  616.         deleteSelection
  617.     }
  618.     insertText "･"
  619. }
  620.  
  621. # Removes all tab stops from the current selection (if there is one) 
  622. # or the current document, maintaining the cursor position in the 
  623. # latter case.
  624. proc deleteTabStops {} {
  625.     global searchNoisily
  626.     watchCursor
  627.     set subs1 0; set subs2 0; set subs3 0
  628.     set pos [getPos]
  629.     if {[set start $pos] == [set end [selEnd]]} {
  630.         set messageString "document"
  631.         set start 0
  632.         set end [maxPos]
  633.         set text1 [getText $start $pos]
  634.         set subs1 [regsub -all {･} $text1 {} text1]
  635.         set text2 [getText $pos $end]
  636.         set subs2 [regsub -all {･} $text2 {} text2]
  637.         append text $text1 $text2
  638.     } else {
  639.         set messageString "selection"
  640.         set text [getText $start $end]
  641.         set subs3 [regsub -all {･} $text {} text]
  642.     }
  643.     if {$subs1 || $subs2 || $subs3} then {
  644.         replaceText $start $end $text
  645.         if {$messageString == "document"} then {
  646.             goto [expr $pos - $subs1]
  647.         } else {
  648.             set end [getPos]
  649.             select $start $end
  650.         }
  651.         set subs [expr $subs1 + $subs2 + $subs3]
  652.         message "$subs tab stops removed from $messageString"
  653.     } else {
  654.         if {$searchNoisily} {beep}
  655.         message "no tab stops found in $messageString"
  656.     }
  657. }
  658.  
  659. # Delete all unnecessary comments from the current document:
  660. proc deleteComments {} {
  661.     switch [askyesno "Warning!  This operation can not be undone.  ¥
  662.                     Continue anyway?"] {
  663.         "yes" {}
  664.         "no" { return }
  665.     }
  666.     replaceString {}
  667.     eval select [search -f 1 -r 1 -i 1 -m 0 -- {^[ ¥t]*%.*¥r} 0]
  668.     replaceAll
  669.     
  670.     replaceString {}
  671.     eval select [search -f 1 -r 1 -i 1 -m 0 -- {[ ¥t]+%.*} 0]
  672.     replaceAll
  673.     
  674.     replaceString {¥1%}
  675.     eval select [search -f 1 -r 1 -i 1 -m 0 -- {([^¥¥](¥¥¥¥)*)%.*} 0]
  676.     replaceAll
  677. }
  678.  
  679. # Converts all straight quotes to their TeX equivalents.
  680. proc convertQuotes {} {
  681.     global searchNoisily
  682.     message "workingﾉ"
  683.     watchCursor
  684.     set messageString "selection"
  685.     if {[set start [getPos]] == [set end [selEnd]]} {
  686.         set messageString "document"
  687.         set start 0
  688.         set end [maxPos]
  689.     }
  690.     set text [getText $start $end]
  691.     # Convert all left double quotes:
  692.     set convert1 [regsub -all "¥(¥^¥|¥[¥ ¥r¥t¥(¥[¥{¥]¥)¥"" $text {¥1``} text]
  693.     # Convert all right double quotes:
  694.     set convert2 [regsub -all "¥(¥[¥^¥¥¥¥¥]¥)¥"" $text {¥1''} text]
  695.     # Convert all left single quotes:
  696.     set convert3 [regsub -all "¥(¥^¥|¥[¥ ¥r¥t¥(¥[¥{¥]¥)¥'" $text {¥1`} text]
  697.     if {$convert1 || $convert2 || $convert3} then {
  698.         replaceText $start $end $text
  699.         message "all quotes in $messageString converted"
  700.     } else {
  701.         if {$searchNoisily} {beep}
  702.         message "no quotes found in $messageString"
  703.     }
  704. }
  705.  
  706. # Returns true if the argument contains non-literal double dollar
  707. # signs, and false otherwise.
  708. proc containsDoubleDollarSigns {text} {
  709.     return [regexp {(^|[^¥¥])¥$¥$} $text]
  710. }
  711.  
  712. # Converts all $$...$$ pairs to ¥[...¥] and returns the number of such 
  713. # pairs converted.  If the dollar signs are unbalanced, does nothing 
  714. # and returns -1.
  715. proc convertDoubleDollarSigns {} {
  716.     watchCursor
  717.     set messageString "selection"
  718.     if {[set start [getPos]] == [set end [selEnd]]} {
  719.         set messageString "document"
  720.         set start 0
  721.         set end [maxPos]
  722.     }
  723.     set text [getText $start $end]
  724.     set subs [regsub -all {(^|[^¥¥])¥$¥$([^$]*)¥$¥$} $text {¥1¥¥[¥2¥¥]} text]
  725.     if {[containsDoubleDollarSigns $text]} then {return -1}
  726.     if {$subs} then {
  727.         replaceText $start $end $text
  728.     }
  729.     return [expr $subs]
  730. }
  731.  
  732. # Returns true if the argument contains a non-literal dollar sign,
  733. # and false otherwise.
  734. proc containsSingleDollarSign {text} {
  735.     return [regexp {(^|[^¥¥])¥$} $text]
  736. }
  737.  
  738. # Converts all $...$ pairs to ¥(...¥), maintains the cursor position, 
  739. # and returns the number of such pairs converted.  If the dollar signs 
  740. # are unbalanced, does nothing and returns -1.
  741. proc convertSingleDollarSigns {} {
  742.     watchCursor
  743.     set subs1 0; set subs2 0; set subs3 0
  744.     set pos [getPos]; set pos2 $pos
  745.     if {[set start $pos] == [set end [selEnd]]} {
  746.         set isSelection 0
  747.         set start 0
  748.         set end [maxPos]
  749.         set text1 [getText $start $pos]
  750.         set subs1 [regsub -all {(^|[^¥¥])¥$([^$]*)¥$} $text1 {¥1¥¥(¥2¥¥)} text1]
  751.         # Is there a dollar sign left over?  If so, search backward for this
  752.         # dollar sign and prepare to do a substitution on the text to the right
  753.         # of this dollar sign.
  754.         if {[containsSingleDollarSign $text1]} then {
  755.             set searchString {[^¥¥]¥$}
  756.             set searchResult [search -s -n -f 0 -m 0 -i 1 -r 1 $searchString [expr $pos-1]]
  757.             set pos2 [lindex $searchResult 0]
  758.             set text1 [string range $text1 0 [expr $pos2 + (2 * $subs1)]]
  759.             set pos [expr $pos + 2]
  760.         }
  761.         set text2 [getText $pos2 $end]
  762.         set subs2 [regsub -all {(^|[^¥¥])¥$([^$]*)¥$} $text2 {¥1¥¥(¥2¥¥)} text2]
  763.         # Is there a dollar sign left over?  If so, it's unbalanced.
  764.         if {[containsSingleDollarSign $text2]} then {return -1}
  765.         append text $text1 $text2
  766.     } else {
  767.         set isSelection 1
  768.         set text [getText $start $end]
  769.         set subs3 [regsub -all {(^|[^¥¥])¥$([^$]*)¥$} $text {¥1¥¥(¥2¥¥)} text]
  770.         # Is there a dollar sign left over?  If so, it's unbalanced.
  771.         if {[containsSingleDollarSign $text]} then {return -1}
  772.     }
  773.     if {$subs1 || $subs2 || $subs3} then {
  774.         replaceText $start $end $text
  775.         # If there is a selection, just put it back.  Otherwise, adjust the
  776.         # cursor position based on the number of substitutions.
  777.         if {$isSelection} then {
  778.             set end [getPos]
  779.             select $start $end
  780.         } else {
  781.             goto [expr $pos + (2 * $subs1)]
  782.         }
  783.     }
  784.     return [expr $subs1 + $subs2 + $subs3]
  785. }
  786.  
  787. proc convertDollarSigns {} {
  788.     global searchNoisily
  789.     if {[isSelection]} then {
  790.         set messageString "selection"
  791.     } else {
  792.         set messageString "document"
  793.     }
  794.     set subs2 [convertDoubleDollarSigns]
  795.     if {$subs2 == -1} then {
  796.         beep
  797.         alertnote "unmatched double dollar signs in $messageString"
  798.     } else {
  799.         set subs1 [convertSingleDollarSigns]
  800.         if {$subs1 == -1} then {
  801.             beep
  802.             alertnote "unmatched single dollar sign in $messageString"
  803.         } elseif {$subs1 == 0 && $subs2 == 0} then {
  804.             if {$searchNoisily} {beep}
  805.             message "no dollar signs found in $messageString"
  806.         } else {
  807.             message "$subs1 pairs of ¥$ﾉ¥$ and $subs2 pairs of ¥$¥$ﾉ¥$¥$ removed from $messageString"
  808.         }
  809.     }
  810. }
  811.  
  812.  
  813. #############################################################################
  814. # 
  815. # Paragraph Mode Macros
  816. #
  817. #############################################################################
  818.  
  819. #--------------------------------------------------------------------------
  820. # Documents:
  821. #--------------------------------------------------------------------------
  822.  
  823. proc newLaTeXDocument {} {
  824.     catch {prompt "Choose a documentclass:" "article" "" "article" ¥
  825.             "report" "book" "letter" "slides"} documentType
  826.     if {$documentType != "cancel"} then {
  827.         new
  828.         newMode TeX
  829.         if { [catch {${documentType}Documentclass}] } then {
  830.             wrapDocument "$documentType" 
  831.         }
  832.         while { [options] } {}
  833.         nextTabStop
  834.         message "enter option (or leave blank)"
  835.     }
  836. }
  837.  
  838. proc letterDocumentclass {} {
  839.     set    preamble "¥r¥¥address¥{%¥r"
  840.     append preamble "    ･    ¥¥¥¥    % insert your name here¥r"
  841.     append preamble "    ･    ¥¥¥¥    % insert your address here¥r"
  842.     append preamble "    ･    ¥¥¥¥    % insert more address here¥r"
  843.     append preamble "    ･          % insert city-state-zip here¥r"
  844.     append preamble "¥}¥r¥r"
  845.     append preamble "¥¥date¥{･¥}  % optional¥r"
  846.     append preamble "¥¥signature¥{･¥}¥r¥r"
  847.     set    body     "¥r¥¥begin¥{letter¥}¥{%¥r"
  848.     append body     "    ･    ¥¥¥¥    % insert addressee's name here¥r"
  849.     append body     "    ･    ¥¥¥¥    % insert addressee's address here¥r"
  850.     append body     "    ･    ¥¥¥¥    % insert more address here¥r"
  851.     append body     "    ･          % insert addressee's city-state-zip here¥r"
  852.     append body     "¥}¥r¥r"
  853.     append body     "¥¥opening¥{Dear ･,¥}¥r¥r"
  854.     if {[isEmptyFile]} then {
  855.         append body "% BODY OF LETTER¥r"
  856.         append body "･¥r¥r"
  857.     } else {
  858.         if {[isDocumentSelected]} then {
  859.             set text [getSelect]
  860. #             deleteText 0 [maxPos]
  861.             append body "$text¥r"
  862.         } else {
  863.             alertnote "nonempty file:  delete text or ¥'Select All¥'¥
  864.                 from the Edit menu"
  865.             return
  866.         }
  867.     }
  868.     append body "¥¥closing¥{Sincerely,¥}¥r¥r"
  869.     append body "¥¥encl¥{･¥}¥r"
  870.     append body "¥¥cc¥{･¥}¥r¥r"
  871.     append body "¥¥end¥{letter¥}¥r¥r"
  872.     insertDocument "letter" $preamble $body
  873.     nextTabStop
  874.     message "enter option (or leave blank)"
  875. }
  876. proc articleDocumentclass {} {
  877.     if { [wrapDocument "article"] } {
  878.         nextTabStop
  879.         message "enter option (or leave blank)"
  880.     }
  881. }
  882. proc reportDocumentclass {} {
  883.     if { [wrapDocument "report"] } {
  884.         nextTabStop
  885.         message "enter option (or leave blank)"
  886.     }
  887. }
  888. proc bookDocumentclass {} {
  889.     if { [wrapDocument "book"] } {
  890.         nextTabStop
  891.         message "enter option (or leave blank)"
  892.     }
  893. }
  894. proc slidesDocumentclass {} {
  895.     if { [wrapDocument "slides"] } {
  896.         nextTabStop
  897.         message "enter option (or leave blank)"
  898.     }
  899. }
  900. proc otherDocumentclass {} {
  901.     catch {prompt "What documentclass?" "article"} documentType
  902.     if {$documentType != "cancel"} then {
  903.         if { [wrapDocument "$documentType"] } {
  904.             nextTabStop
  905.             message "enter option (or leave blank)"
  906.         }
  907.     }
  908. }
  909.  
  910. # If an option is inserted, return true; otherwise, return false.
  911. proc options {} {
  912.     set option [getOption]
  913.     if {$option != ""} then {
  914.         insertOption $option
  915.         return 1
  916.     }
  917.     return 0
  918. }
  919. proc getOption {} {
  920.     catch {prompt "Choose an option:" "11pt" "" "10pt" "11pt" "12pt" "(-" ¥
  921.             "letterpaper" "legalpaper" "executivepaper" "a4paper" "a5paper" ¥
  922.             "b5paper" "(-" "landscape" "(-" "final" "draft" "(-" ¥
  923.             "oneside" "twoside" "(-" "openright" "openany" "(-" ¥
  924.             "onecolumn" "twocolumn" "(-" "notitlepage" "titlepage" ¥
  925.                   "openbib" "(-" "leqno" "(-" "fleqn"} optionName
  926.     if {$optionName != "cancel"} then {
  927.         return $optionName
  928.     } else {
  929.         return ""
  930.     }
  931. }
  932. proc insertOption {option} {
  933.     global TeXmodeVars
  934.     set searchString {¥¥documentclass}
  935.     set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 $searchString 0]
  936.     if {[llength $searchResult] == 0} then {
  937.         if { $TeXmodeVars(searchNoisily) } {beep}
  938.         message "can¥'t find ¥¥documentclass"
  939.     } else {
  940.         set nextCharPos [lindex $searchResult 1]
  941.         goto $nextCharPos
  942.         set nextChar [lookAt $nextCharPos]
  943.         if {$nextChar == "¥["} then {
  944.             forwardChar
  945.             insertText $option
  946.             if {[lookAt [getPos]] != "¥]"} then {
  947.                 insertText ","
  948.             }
  949.         } elseif {$nextChar == "¥{"} then {
  950.             insertText "¥[$option¥]"
  951.         } else {
  952.             alertnote "unrecognizable ¥¥documentclass statement"
  953.         }
  954.     }
  955. }
  956.  
  957. proc insertPackage {package} {
  958.     global TeXmodeVars
  959.     # Check to see if $package is already loaded:
  960.     if { $package != "" } then {
  961. #         append searchString {¥¥usepackage¥{.*} $package {.*¥}}
  962.         append searchString {^[^%]*¥¥usepackage¥{.*} $package {.*¥}}
  963.         set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 $searchString 0]
  964.         if {[llength $searchResult] != 0} then {
  965.             if { $TeXmodeVars(searchNoisily) } {beep}
  966.             message "$package package already loaded"
  967.             return
  968.         }
  969.     }
  970.     # Newlines are allowed in the arguments of ¥documentclass:
  971.     set searchString {¥¥documentclass(¥[[^][]*¥])?{[^{}]*}}
  972.     # Search for ¥documentclass command:
  973.     set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 $searchString 0]
  974.     if {[llength $searchResult] == 0} then {
  975.         if { $TeXmodeVars(searchNoisily) } {beep}
  976.         message "can't find ¥¥documentclass"
  977.     } else {
  978.         pushMark
  979.         goto [lindex $searchResult 1]
  980.         set txt "¥r¥¥usepackage¥{$package¥}"
  981.         insertText $txt
  982.         backwardChar
  983.         message "Press <Ctl .> to return to previous position"
  984.     }
  985. }
  986.  
  987. proc filecontents {} {
  988.     global searchNoisily
  989.     set searchString {¥¥documentclass}
  990.     set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 $searchString 0]
  991.     if {[llength $searchResult] == 0} then {
  992.         if {$searchNoisily} {beep}
  993.         message "can¥'t find ¥¥documentclass"
  994.         return
  995.     } else {
  996.         set prompt "File to be included:"
  997.         if {[catch {getfile $prompt} path]} then {
  998.             return
  999.         } else {
  1000.             replaceText 0 0 [buildFilecontents $path]
  1001.             goto 0
  1002.             message "file included"
  1003.         }
  1004.     }
  1005. }
  1006. proc filecontentsAll {} {
  1007.     global searchNoisily
  1008.     watchCursor
  1009.     message "locating all input filesﾉ"
  1010.     set currentWin [lindex [winNames -f] 0]
  1011.     # Is the current window part of TeX fileset?
  1012.     set fset [isWindowInFileset $currentWin "tex"]
  1013.     if { $fset == "" } {
  1014.         set searchString {¥¥documentclass}
  1015.         set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 $searchString 0]
  1016.         if {[llength $searchResult] == 0} then {
  1017.             if {$searchNoisily} {beep}
  1018.             message "can¥'t find ¥¥documentclass"
  1019.             return
  1020.         } else {
  1021.             set text [getText 0 [maxPos]]
  1022.         }
  1023.     } else {
  1024.         # Will not handle a base file that is open and dirty:
  1025.         set text [buildFilecontents [texFilesetBaseName $fset]]
  1026.     }
  1027.     set currentDir [file dirname $currentWin]
  1028.     set newText [texResolveAll $text $currentDir]
  1029.     if { [string length $text] == [string length $newText] } then {
  1030.         beep
  1031.         message "no files to include"
  1032.     } else {
  1033.         replaceText 0 [maxPos] $newText
  1034.         goto 0
  1035.         message "all files included"
  1036.     }
  1037. }
  1038. # Takes a LaTeX document string and a path as input, and returns
  1039. # a modified document string with all filecontents environments
  1040. # prepended.
  1041. proc texResolveAll {latexDoc currentDir} {
  1042.     global TeXmodeVars
  1043.     set pairs [list ¥
  1044.                 {{¥¥documentclass} {.cls}} {{¥¥LoadClass} {.cls}} ¥
  1045.                 {{¥¥include} {.tex}} ¥
  1046.                 {{¥¥usepackage} {.sty}} {{¥¥RequirePackage} {.sty}} ¥
  1047.                 {{¥¥input} {}} ¥
  1048.                 {{¥¥bibliography} {.bib}} {{¥¥bibliographystyle} {.bst}} ¥
  1049.               ]
  1050.     foreach macro $TeXmodeVars(boxMacroNames) {
  1051.         regsub {¥*} $macro {¥¥*} macro
  1052.         lappend pairs [list ¥¥¥¥$macro {}]
  1053.     }
  1054.     foreach pair $pairs {
  1055.         set cmd [car $pair]
  1056.         set ext [cadr $pair]
  1057.         set searchString $cmd
  1058.         append searchString {(¥[[^][]*¥])?{([^{}]*)}}
  1059.         set searchText $latexDoc
  1060.         while { [regexp -indices $searchString $searchText mtch dummy theArgs] } {
  1061.             set begPos [lindex $theArgs 0]
  1062.             set endPos [lindex $theArgs 1]
  1063.             set args [string range $searchText $begPos $endPos]
  1064.             foreach arg [split $args ,] {
  1065.                 if { $cmd == {¥¥input} && ![string length [file extension $arg]] } {
  1066.                     set ext {.tex}
  1067.                 }
  1068.                 set files [glob -nocomplain $currentDir:$arg*]
  1069.                 set filename "$currentDir:$arg$ext"
  1070.                 if { [lsearch -exact $files $filename] > -1 } {
  1071.                     set tempDoc $latexDoc
  1072.                     set latexDoc [buildFilecontents $filename]
  1073.                     append latexDoc $tempDoc
  1074.                 }
  1075.             }
  1076.             set searchText [string range $searchText [expr $endPos + 2] end]
  1077.         }
  1078.     }
  1079.     return $latexDoc
  1080. }
  1081. # Takes a filename as input and returns a filecontents environment 
  1082. # based on the contents of that file.  If a second argument is given,
  1083. # use that as the argument of the filecontents environment instead
  1084. # of the original filename.
  1085. proc buildFilecontents {filename {newFilename {}}} {
  1086.     set text [readFile $filename]
  1087.     # Fix end-of-line characters:
  1088.     regsub -all "¥xa" $text "¥xd" text
  1089.     set envName "filecontents"
  1090.     if { $newFilename == {} } {
  1091.         set envArg "{[file tail $filename]}"
  1092.     } else {
  1093.         set envArg "{$newFilename}"
  1094.     }
  1095.     return [buildEnvironment $envName $envArg "$text¥r" "¥r¥r"]
  1096. }
  1097.  
  1098. #--------------------------------------------------------------------------
  1099. # Page Layout:
  1100. #--------------------------------------------------------------------------
  1101.  
  1102. proc maketitle {} {
  1103.     global searchNoisily
  1104.     set searchString {¥¥document(class|style)(¥[.*¥])?¥{.*¥}}
  1105.     set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 $searchString 0]
  1106.     if {[llength $searchResult] == 0} then {
  1107.         if {$searchNoisily} {beep}
  1108.         message "can¥'t find ¥¥documentclass or ¥¥documentstyle"
  1109.     } else {
  1110.         set searchPos [lindex $searchResult 1]
  1111.         set searchString {¥¥begin¥{document¥}}
  1112.         set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 $searchString $searchPos]
  1113.         if {[llength $searchResult] == 0} then {
  1114.             if {$searchNoisily} {beep}
  1115.             message "can¥'t find ¥¥begin¥{document¥}"
  1116.         } else {
  1117.             goto [lindex $searchResult 1]
  1118.             set currentPos [getPos]
  1119.             set txt "¥r¥r% Definition of title page:"
  1120.             append txt "¥r¥¥title¥{"
  1121.             append txt "¥r¥t･¥r¥}"
  1122.             append txt "¥r¥¥author¥{"
  1123.             append txt "¥r¥t･¥t% insert author(s) here"
  1124.             append txt "¥r¥}"
  1125.             append txt "¥r¥¥date¥{･¥}¥t% optional"
  1126.             append txt "¥r¥r¥¥maketitle"
  1127.             insertText $txt
  1128.             goto $currentPos
  1129.             nextTabStop
  1130.             message "insert title"
  1131.         }
  1132.     }
  1133. }
  1134. proc abstract {} { doWrapEnvironment "abstract" }
  1135. proc titlepage {} { doWrapEnvironment "titlepage" }
  1136. proc getPagestyle {} {
  1137.     catch {prompt "Choose a pagestyle:" "plain" "" "plain" "empty" ¥
  1138.                   "headings" "myheadings"} pagestyleName
  1139.     if {$pagestyleName != "cancel"} then {
  1140.         return $pagestyleName
  1141.     } else {
  1142.         return ""
  1143.     }
  1144. }
  1145. proc pagestyle {} {
  1146.     set pagestyleName [getPagestyle]
  1147.     if {$pagestyleName != ""} then {
  1148.         openingCarriageReturn
  1149.         insertObject "¥¥pagestyle¥{$pagestyleName¥}"
  1150.         closingCarriageReturn
  1151.     }
  1152. }
  1153. proc thispagestyle {} {
  1154.     set pagestyleName [getPagestyle]
  1155.     if {$pagestyleName != ""} then {
  1156.         openingCarriageReturn
  1157.         insertObject "¥¥thispagestyle¥{$pagestyleName¥}"
  1158.         closingCarriageReturn
  1159.     }
  1160. }
  1161. proc getPagenumberingStyle {} {
  1162.     catch {prompt "Choose a pagenumbering style:" "arabic" "" "arabic" ¥
  1163.                   "roman" "Roman" "alph" "Alph"} pagenumberingStyle
  1164.     if {$pagenumberingStyle != "cancel"} then {
  1165.         return $pagenumberingStyle
  1166.     } else {
  1167.         return ""
  1168.     }
  1169. }
  1170. proc pagenumbering {} {
  1171.     set pagenumberingStyle [getPagenumberingStyle]
  1172.     if {$pagenumberingStyle != ""} then {
  1173.         openingCarriageReturn
  1174.         insertObject "¥¥pagenumbering¥{$pagenumberingStyle¥}"
  1175.         closingCarriageReturn
  1176.     }
  1177. }
  1178. proc twocolumn {} {
  1179.     openingCarriageReturn
  1180.     insertObject "¥¥twocolumn"
  1181.     closingCarriageReturn
  1182. }
  1183. proc onecolumn {} {
  1184.     openingCarriageReturn
  1185.     insertObject "¥¥onecolumn"
  1186.     closingCarriageReturn
  1187. }
  1188.  
  1189. #--------------------------------------------------------------------------
  1190. # Sectioning:
  1191. #--------------------------------------------------------------------------
  1192.  
  1193. proc part {} {
  1194.     if {[wrapObject "¥¥part{" "}･"]} then {
  1195.         message "don't forget the label"
  1196.     } else {
  1197.         message "type the part name and don't forget the label"
  1198.     }
  1199. }
  1200. proc chapter {} {
  1201.     if {[wrapObject "¥¥chapter{" "}･"]} then {
  1202.         message "don't forget the label"
  1203.     } else {
  1204.         message "type the chapter name and don't forget the label"
  1205.     }
  1206. }
  1207. proc section {} {
  1208.     if {[wrapObject "¥¥section{" "}･"]} then {
  1209.         message "don't forget the label"
  1210.     } else {
  1211.         message "type the section name and don't forget the label"
  1212.     }
  1213. }
  1214. proc subsection {} {
  1215.     if {[wrapObject "¥¥subsection{" "}･"]} then {
  1216.         message "don't forget the label"
  1217.     } else {
  1218.         message "type the subsection name and don't forget the label"
  1219.     }
  1220. }
  1221. proc subsubsection {} {
  1222.     if {[wrapObject "¥¥subsubsection{" "}･"]} then {
  1223.         message "don't forget the label"
  1224.     } else {
  1225.         message "type the subsubsection name and don't forget the label"
  1226.     }
  1227. }
  1228. proc paragraph {} {
  1229.     if {[wrapObject "¥¥paragraph{" "}･"]} then {
  1230.         message "don't forget the label"
  1231.     } else {
  1232.         message "type the paragraph name and don't forget the label"
  1233.     }
  1234. }
  1235. proc subparagraph {} {
  1236.     if {[wrapObject "¥¥subparagraph{" "}･"]} then {
  1237.         message "don't forget the label"
  1238.     } else {
  1239.         message "type the subparagraph name and don't forget the label"
  1240.     }
  1241. }
  1242. proc appendix {} {insertObject "¥¥appendix"}
  1243.  
  1244. #--------------------------------------------------------------------------
  1245. # Text Style:
  1246. #--------------------------------------------------------------------------
  1247.  
  1248. proc emph {} {
  1249.     if {[wrapObject "¥¥emph{" "}･"]} then {
  1250.         message "selected text has been emphasized"
  1251.     } else {
  1252.         message "enter text to be emphasized"
  1253.     }
  1254. }
  1255. proc textup {} {
  1256.     if {[wrapObject "¥¥textup{" "}･"]} then {
  1257.         message "selected text has upright shape"
  1258.     } else {
  1259.         message "enter text to have upright shape"
  1260.     }
  1261. }
  1262. proc textit {} {
  1263.     if {[wrapObject "¥¥textit{" "}･"]} then {
  1264.         message "selected text has italic shape"
  1265.     } else {
  1266.         message "enter text to have italic shape"
  1267.     }
  1268. }
  1269. proc textsl {} {
  1270.     if {[wrapObject "¥¥textsl{" "}･"]} then {
  1271.         message "selected text has slanted shape"
  1272.     } else {
  1273.         message "enter text to have slanted shape"
  1274.     }
  1275. }
  1276. proc textsc {} {
  1277.     if {[wrapObject "¥¥textsc{" "}･"]} then {
  1278.         message "selected text has small caps shape"
  1279.     } else {
  1280.         message "enter text to have small caps shape"
  1281.     }
  1282. }
  1283. proc textmd {} {
  1284.     if {[wrapObject "¥¥textmd{" "}･"]} then {
  1285.         message "selected text has been set in medium series"
  1286.     } else {
  1287.         message "enter text to be set in medium series"
  1288.     }
  1289. }
  1290. proc textbf {} {
  1291.     if {[wrapObject "¥¥textbf{" "}･"]} then {
  1292.         message "selected text has been set in bold series"
  1293.     } else {
  1294.         message "enter text to be set in bold series"
  1295.     }
  1296. }
  1297. proc textrm {} {
  1298.     if {[wrapObject "¥¥textrm{" "}･"]} then {
  1299.         message "selected text has been set with roman family"
  1300.     } else {
  1301.         message "enter text to be set using roman family"
  1302.     }
  1303. }
  1304. proc textsf {} {
  1305.     if {[wrapObject "¥¥textsf{" "}･"]} then {
  1306.         message "selected text has been set with sans serif family"
  1307.     } else {
  1308.         message "enter text to be set using sans serif family"
  1309.     }
  1310. }
  1311. proc texttt {} {
  1312.     if {[wrapObject "¥¥texttt{" "}･"]} then {
  1313.         message "selected text has been set with typewriter family"
  1314.     } else {
  1315.         message "enter text to be set using typewriter family"
  1316.     }
  1317. }
  1318. proc textnormal {} {
  1319.     if {[wrapObject "¥¥textnormal{" "}･"]} then {
  1320.         message "selected text has been set with normal style"
  1321.     } else {
  1322.         message "enter text to be set using normal style"
  1323.     }
  1324. }
  1325.  
  1326. proc em {} {
  1327.     if {[wrapObject "{¥¥em " "}･"]} then {
  1328.         message "emphasized text set"
  1329.     } else {
  1330.         message "enter text to be emphasized"
  1331.     }
  1332. }
  1333. proc upshape {} {
  1334.     if {[wrapObject "{¥¥upshape " "}･"]} then {
  1335.         message "text set in upright shape"
  1336.     } else {
  1337.         message "enter text to be set in upright shape"
  1338.     }
  1339. }
  1340. proc itshape {} {
  1341.     if {[wrapObject "{¥¥itshape " "}･"]} then {
  1342.         message "text set in italics shape"
  1343.     } else {
  1344.         message "enter text to be set in italics shape"
  1345.     }
  1346. }
  1347. proc slshape {} {
  1348.     if {[wrapObject "{¥¥slshape " "}･"]} then {
  1349.         message "text set in slanted shape"
  1350.     } else {
  1351.         message "enter text to be set in slanted shape"
  1352.     }
  1353. }
  1354. proc scshape {} {
  1355.     if {[wrapObject "{¥¥scshape " "}･"]} then {
  1356.         message "text set in small caps shape"
  1357.     } else {
  1358.         message "enter text to be set in small caps shape"
  1359.     }
  1360. }
  1361. proc mdseries {} {
  1362.     if {[wrapObject "{¥¥mdseries " "}･"]} then {
  1363.         message "text set in medium series"
  1364.     } else {
  1365.         message "enter text to be set in medium series"
  1366.     }
  1367. }
  1368. proc bfseries {} {
  1369.     if {[wrapObject "{¥¥bfseries " "}･"]} then {
  1370.         message "text set in bold series"
  1371.     } else {
  1372.         message "enter text to be set in bold series"
  1373.     }
  1374. }
  1375. proc rmfamily {} {
  1376.     if {[wrapObject "{¥¥rmfamily " "}･"]} then {
  1377.         message "text set in roman family"
  1378.     } else {
  1379.         message "enter text to be set in roman family"
  1380.     }
  1381. }
  1382. proc sffamily {} {
  1383.     if {[wrapObject "{¥¥sffamily " "}･"]} then {
  1384.         message "text set in sans serif family"
  1385.     } else {
  1386.         message "enter text to be set in sans serif family"
  1387.     }
  1388. }
  1389. proc ttfamily {} {
  1390.     if {[wrapObject "{¥¥ttfamily " "}･"]} then {
  1391.         message "text set in typewriter family"
  1392.     } else {
  1393.         message "enter text to be set in typewriter family"
  1394.     }
  1395. }
  1396. proc normalfont {} {
  1397.     if {[wrapObject "{¥¥normalfont " "}･"]} then {
  1398.         message "text set in normal style"
  1399.     } else {
  1400.         message "enter text to be set in normal style"
  1401.     }
  1402. }
  1403.  
  1404. #--------------------------------------------------------------------------
  1405. # Text Size:
  1406. #--------------------------------------------------------------------------
  1407.  
  1408. proc tiny {} {
  1409.     if {[wrapObject "{¥¥tiny " "}･"]} then {
  1410.         message "tiny text set"
  1411.     } else {
  1412.         message "enter tiny text"
  1413.     }
  1414. }
  1415. proc scriptsize {} {
  1416.     if {[wrapObject "{¥¥scriptsize " "}･"]} then {
  1417.         message "scriptsize text set"
  1418.     } else {
  1419.         message "enter scriptsize text"
  1420.     }
  1421. }
  1422. proc footnotesize {} {
  1423.     if {[wrapObject "{¥¥footnotesize " "}･"]} then {
  1424.         message "footnotesize text set"
  1425.     } else {
  1426.         message "enter footnotesize text"
  1427.     }
  1428. }
  1429. proc small {} {
  1430.     if {[wrapObject "{¥¥small " "}･"]} then {
  1431.         message "small text set"
  1432.     } else {
  1433.         message "enter small text"
  1434.     }
  1435. }
  1436. proc normalsize {} {
  1437.     if {[wrapObject "{¥¥normalsize " "}･"]} then {
  1438.         message "normalsize text set"
  1439.     } else {
  1440.         message "enter normalsize text"
  1441.     }
  1442. }
  1443. proc large {} {
  1444.     if {[wrapObject "{¥¥large " "}･"]} then {
  1445.         message "large text set"
  1446.     } else {
  1447.         message "enter large text"
  1448.     }
  1449. }
  1450. proc Large {} {
  1451.     if {[wrapObject "{¥¥Large " "}･"]} then {
  1452.         message "Large text set"
  1453.     } else {
  1454.         message "enter Large text"
  1455.     }
  1456. }
  1457. proc LARGE {} {
  1458.     if {[wrapObject "{¥¥LARGE " "}･"]} then {
  1459.         message "LARGE text set"
  1460.     } else {
  1461.         message "enter LARGE text"
  1462.     }
  1463. }
  1464. proc huge {} {
  1465.     if {[wrapObject "{¥¥huge " "}･"]} then {
  1466.         message "huge text set"
  1467.     } else {
  1468.         message "enter huge text"
  1469.     }
  1470. }
  1471. proc Huge {} {
  1472.     if {[wrapObject "{¥¥Huge " "}･"]} then {
  1473.         message "Huge text set"
  1474.     } else {
  1475.         message "enter Huge text"
  1476.     }
  1477. }
  1478.  
  1479. #--------------------------------------------------------------------------
  1480. # International:
  1481. #--------------------------------------------------------------------------
  1482.  
  1483. proc {˜} {} {
  1484.     if {[wrapObject "¥¥`{" "}･"]} then {
  1485.         message "accent set"
  1486.     } else {
  1487.         message "enter single character"
  1488.     }
  1489. }
  1490. proc {抑 {} {
  1491.     if {[wrapObject "¥¥'{" "}･"]} then {
  1492.         message "accent set"
  1493.     } else {
  1494.         message "enter single character"
  1495.     }
  1496. }
  1497. proc {凩 {} {
  1498.     if {[wrapObject "¥¥^{" "}･"]} then {
  1499.         message "accent set"
  1500.     } else {
  1501.         message "enter single character"
  1502.     }
  1503. }
  1504. proc {嘲 {} {
  1505.     if {[wrapObject "¥¥¥"{" "}･"]} then {
  1506.         message "accent set"
  1507.     } else {
  1508.         message "enter single character"
  1509.     }
  1510. }
  1511. proc {孺 {} {
  1512.     if {[wrapObject "¥¥~{" "}･"]} then {
  1513.         message "accent set"
  1514.     } else {
  1515.         message "enter single character"
  1516.     }
  1517. }
  1518. proc {閤 {} {insertObject "¥¥c¥{c¥}"}
  1519. proc {‚} {} {insertObject "¥¥c¥{C¥}"}
  1520. proc {ﾏ} {} {insertObject "¥¥oe"}
  1521. proc {ﾎ} {} {insertObject "¥¥OE"}
  1522. proc {ｾ} {} {insertObject "¥¥ae"}
  1523. proc {ｮ} {} {insertObject "¥¥AE"}
  1524. proc {迎 {} {insertObject "¥¥aa"}
  1525. proc {± {} {insertObject "¥¥AA"}
  1526. proc {ｿ} {} {insertObject "¥¥o"}
  1527. proc {ｯ} {} {insertObject "¥¥O"}
  1528. proc {ｧ} {} {insertObject "¥¥ss"}
  1529. proc {ﾀ} {} {insertObject "?`"}
  1530. proc {ﾁ} {} {insertObject "!`"}
  1531.  
  1532. #--------------------------------------------------------------------------
  1533. # Environments:
  1534. #--------------------------------------------------------------------------
  1535.  
  1536. proc enumerate {} {
  1537.     global promptNoisily useStatusBar
  1538.     set envName "enumerate"
  1539.     if {$promptNoisily && $useStatusBar} {beep}
  1540.     catch {sPrompt "$envName:  how many items?" 3} numberItems
  1541.     if {$numberItems == "cancel"} then {
  1542.         return
  1543.     } elseif {![isPositiveInteger $numberItems]} then {
  1544.         beep
  1545.         message "invalid input:  unsigned, postive integer required"
  1546.         return
  1547.     }
  1548.     if {$numberItems} then {
  1549.         set body "¥t¥¥item  ･"
  1550.         for {set i 1} {$i < $numberItems} {incr i} {
  1551.             append body "¥r¥r¥t¥¥item  ･"
  1552.         }
  1553.         append body "¥r"
  1554.     } else {
  1555.         set body "¥t･¥r"
  1556.     }
  1557.     if {[insertEnvironment $envName "" $body]} then {
  1558.         nextTabStop
  1559.         message "type first item"
  1560.     }
  1561. }
  1562. proc itemize {} {
  1563.     global promptNoisily useStatusBar
  1564.     set envName "itemize"
  1565.     if {$promptNoisily && $useStatusBar} {beep}
  1566.     catch {sPrompt "$envName:  how many items?" 3} numberItems
  1567.     if {$numberItems == "cancel"} then {
  1568.         return
  1569.     } elseif {![isPositiveInteger $numberItems]} then {
  1570.         beep
  1571.         message "invalid input:  unsigned, postive integer required"
  1572.         return
  1573.     }
  1574.     if {$numberItems} then {
  1575.         set body "¥t¥¥item  ･"
  1576.         for {set i 1} {$i < $numberItems} {incr i} {
  1577.             append body "¥r¥r¥t¥¥item  ･"
  1578.         }
  1579.         append body "¥r"
  1580.     } else {
  1581.         set body "¥t･¥r"
  1582.     }
  1583.     if {[insertEnvironment $envName "" $body]} then {
  1584.         nextTabStop
  1585.         message "type first item"
  1586.     }
  1587. }
  1588. proc description {} {
  1589.     global promptNoisily useStatusBar
  1590.     set envName "description"
  1591.     if {$promptNoisily && $useStatusBar} {beep}
  1592.     catch {sPrompt "$envName:  how many items?" 3} numberItems
  1593.     if {$numberItems == "cancel"} then {
  1594.         return
  1595.     } elseif {![isPositiveInteger $numberItems]} then {
  1596.         beep
  1597.         message "invalid input:  unsigned, postive integer required"
  1598.         return
  1599.     }
  1600.     if {$numberItems} then {
  1601.         set body "¥t¥¥item¥[･¥]  ･"
  1602.         for {set i 1} {$i < $numberItems} {incr i} {
  1603.             append body "¥r¥r¥t¥¥item¥[･¥]  ･"
  1604.         }
  1605.         append body "¥r"
  1606.     } else {
  1607.         set body "¥t･¥r"
  1608.     }
  1609.     if {[insertEnvironment $envName "" $body]} then {
  1610.         nextTabStop
  1611.         message "type first item label"
  1612.     }
  1613. }
  1614. proc thebibliography {} {
  1615.     global promptNoisily useStatusBar
  1616.     set envName "thebibliography"
  1617.     if {$promptNoisily && $useStatusBar} {beep}
  1618.     catch {sPrompt "$envName:  how many items?" 3} numberItems
  1619.     if {$numberItems == "cancel"} then {
  1620.         return
  1621.     } elseif {![isPositiveInteger $numberItems]} then {
  1622.         beep
  1623.         message "invalid input:  unsigned, postive integer required"
  1624.         return
  1625.     }
  1626.     set arg "{9}"
  1627.     if {$numberItems} then {
  1628.         if {$numberItems > 9} then {set arg "{99}"}
  1629.         set body "¥t¥¥bibitem{･}  ･"
  1630.         for {set i 1} {$i < $numberItems} {incr i} {
  1631.             append body "¥r¥r¥t¥¥bibitem{･}  ･"
  1632.         }
  1633.         append body "¥r"
  1634.     } else {
  1635.         set body "¥t･¥r"
  1636.     }
  1637.     if {[insertEnvironment $envName $arg $body]} then {
  1638.         set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 {(9)+} [getPos]]
  1639.         eval select $searchResult
  1640.         message "Change the length of the key field?"
  1641.     }
  1642. }
  1643. proc slide {} { doWrapEnvironment "slide" }
  1644. proc overlay {} { doWrapEnvironment "overlay" }
  1645. proc note {} { doWrapEnvironment "note" }
  1646. # proc figure {} {
  1647. #     global TeXmodeVars
  1648. #     set envName "figure"
  1649. #     set envArg "tbp"
  1650. #     set arg "¥[$envArg¥]"
  1651. #     set theIndentation [getIndentation [getPos]]
  1652. #     append arg "¥r$theIndentation¥t¥¥centering"
  1653. #     set body ""
  1654. #     if { $TeXmodeVars(useBoxMacro) } then {
  1655. #         set defaultMacro [car $TeXmodeVars(boxMacroNames)]
  1656. #         if { $defaultMacro == "" } {
  1657. #             append body "¥t･¥r"
  1658. #         } else {
  1659. #             set restOfMacros [cdr $TeXmodeVars(boxMacroNames)]
  1660. #             if { ![llength $restOfMacros] } {
  1661. #                 append body "¥t¥¥$defaultMacro{･}¥r"
  1662. #             } else {
  1663. #                 set cmd [list prompt "Choose a boxMacro:"]
  1664. #                 lappend cmd $defaultMacro "" 
  1665. #                 foreach boxMacroName $TeXmodeVars(boxMacroNames) {
  1666. #                     lappend cmd $boxMacroName
  1667. #                 }
  1668. #                 catch $cmd macro
  1669. #                 if {$macro != "cancel"} then {
  1670. #                     append body "¥t¥¥$macro{･}¥r"
  1671. #                 } else {
  1672. #                     message "operation canceled"
  1673. #                     return
  1674. #                 }
  1675. #             }
  1676. #         }
  1677. #     }
  1678. #     append body "¥t¥¥caption{･}¥r"
  1679. #     append body "¥t¥¥label{･}¥r"
  1680. #     if { $TeXmodeVars(useBoxMacro) } then {
  1681. #         if {![insertEnvironment $envName $arg $body]} then {return}
  1682. #     } else {
  1683. #         wrapEnvironment $envName $arg $body
  1684. #     }
  1685. #     set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 "$envArg" [getPos]]
  1686. #     eval select $searchResult
  1687. #     message "Modify this argument?  (t=top; b=bottom; p=page; h=here; !=try harder)"
  1688. # }
  1689. proc figure {} {
  1690.     global TeXmodeVars
  1691.     set envName "figure"
  1692.     set envArg "tbp"
  1693.     set arg "¥[$envArg¥]"
  1694.     set theIndentation [getIndentation [getPos]]
  1695.     append arg "¥r$theIndentation¥t¥¥centering"
  1696.     set body ""
  1697.     set macro [car $TeXmodeVars(boxMacroNames)]
  1698.     if { $macro != "" } {
  1699.         set restOfMacros [cdr $TeXmodeVars(boxMacroNames)]
  1700.         if { ![llength $restOfMacros] } {
  1701.             append body "¥t¥¥$macro{･}¥r"
  1702.         } else {
  1703.             set cmd [list prompt "Choose a box macro:"]
  1704.             lappend cmd $macro "" 
  1705.             foreach boxMacroName $TeXmodeVars(boxMacroNames) {
  1706.                 lappend cmd $boxMacroName
  1707.             }
  1708.             catch $cmd macro
  1709.             if {$macro == "cancel"} then {
  1710.                 message "operation canceled"
  1711.                 return
  1712.             } elseif {$macro == ""} then {
  1713.                 # do nothing
  1714.             } else {
  1715.                 append body "¥t¥¥$macro{･}¥r"
  1716.             }
  1717.         }
  1718.     }
  1719.     append body "¥t¥¥caption{･}¥r"
  1720.     append body "¥t¥¥label{･}¥r"
  1721.     if { $macro == "" } then {
  1722.         wrapEnvironment $envName $arg $body
  1723.     } else {
  1724.         if {![insertEnvironment $envName $arg $body]} then {return}
  1725.     }
  1726.     set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 "$envArg" [getPos]]
  1727.     eval select $searchResult
  1728.     message "Modify this argument?  (t=top; b=bottom; p=page; h=here; !=try harder)"
  1729. }
  1730. proc table {} {
  1731.     set envName "table"
  1732.     set envArg "tbp"
  1733.     set arg "¥[$envArg¥]"
  1734.     set theIndentation [getIndentation [getPos]]
  1735.     append arg "¥r$theIndentation¥t¥¥centering"
  1736.     # The following statement puts the caption at the top:
  1737.     append arg "¥r$theIndentation¥t¥¥caption{･}"
  1738.     # The following statement puts the caption at the bottom:
  1739. #     set body "¥t¥¥caption{･}¥r"
  1740.     append body "¥t¥¥label{･}¥r"
  1741.     wrapEnvironment $envName $arg $body
  1742.     set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 "$envArg" [getPos]]
  1743.     eval select $searchResult
  1744.     message "Modify this argument?  (t=top; b=bottom; p=page; h=here; !=try harder)"
  1745. }
  1746. proc buildRow {jmax} {
  1747.     set txt "･"
  1748.     for {set j 1} {$j < $jmax} {incr j} {
  1749.         append txt " & ･"
  1750.     }
  1751.     return $txt
  1752. }
  1753. proc tabular {} {
  1754.     global promptNoisily useStatusBar
  1755.     set envName "tabular"
  1756.     if {$promptNoisily && $useStatusBar} {beep}
  1757.     catch {sPrompt "$envName:  how many rows?" 3} numberRows
  1758.     if {$numberRows == "cancel"} then {
  1759.         return
  1760.     } elseif {![isPositiveInteger $numberRows]} then {
  1761.         beep
  1762.         message "invalid input:  unsigned, postive integer required"
  1763.         return
  1764.     }
  1765.     if {$promptNoisily && $useStatusBar} {beep}
  1766.     catch {sPrompt "$envName:  how many columns?" 3} numberCols
  1767.     if {$numberCols == "cancel"} then {
  1768.         return
  1769.     } elseif {![isPositiveInteger $numberCols]} then {
  1770.         beep
  1771.         message "invalid input:  unsigned, postive integer required"
  1772.         return
  1773.     }
  1774.     set arg "{|"
  1775.     for {set j 1} {$j <= $numberCols} {incr j} {
  1776.         append arg "c|"
  1777.     }
  1778.     append arg "}"
  1779.     set body "¥t¥¥hline¥r"
  1780.     for {set i 1} {$i <= $numberRows} {incr i} {
  1781.         append body "¥t[buildRow $numberCols]"
  1782.         append body "  ¥¥¥¥¥r¥t¥¥hline¥r"
  1783.     }
  1784.     if {[insertEnvironment $envName $arg $body]} then {
  1785.         set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 {(c|¥|)+} [getPos]]
  1786.         select [lindex $searchResult 0] [lindex $searchResult 1]
  1787.         message "Modify this argument?"
  1788.     }
  1789. }
  1790. proc verbatim {} { doWrapEnvironment "verbatim" }
  1791. proc quote {} { doWrapEnvironment "quote" }
  1792. proc quotation {} { doWrapEnvironment "quotation" }
  1793. proc verse {} { doWrapEnvironment "verse" }
  1794. proc flushleft {} { doWrapEnvironment "flushleft" }
  1795. proc center {} { doWrapEnvironment "center" }
  1796. proc flushright {} { doWrapEnvironment "flushright" }
  1797. proc general {} {
  1798.     catch {prompt "What environment?" ""} environmentName
  1799.     if {$environmentName != "cancel"} {
  1800.         doWrapEnvironment "$environmentName"
  1801.     }
  1802. }
  1803.  
  1804. #--------------------------------------------------------------------------
  1805. # Boxes:
  1806. #--------------------------------------------------------------------------
  1807.  
  1808. proc mbox {} {
  1809.     if {[wrapObject "¥¥mbox{" "}･"]} then {
  1810.         message "mbox set"
  1811.     } else {
  1812.         message "enter text"
  1813.     }
  1814. }
  1815. proc makebox {} {
  1816.     if {[wrapObject "¥¥makebox¥[･¥]¥[･¥]{" "}･"]} then {
  1817.         message "makebox set; enter the width and position"
  1818.     } else {
  1819.         message "enter the width and position of the makebox, then the text"
  1820.     }
  1821. }
  1822. proc fbox {} {
  1823.     if {[wrapObject "¥¥fbox{" "}･"]} then {
  1824.         message "fbox set"
  1825.     } else {
  1826.         message "enter text"
  1827.     }
  1828. }
  1829. proc framebox {} {
  1830.     if {[wrapObject "¥¥framebox¥[･¥]¥[･¥]{" "}･"]} then {
  1831.         message "framebox set; enter the width and position"
  1832.     } else {
  1833.         message "enter the width and position of the framebox, then the text"
  1834.     }
  1835. }
  1836. proc newsavebox {} {
  1837.     if {[wrapObject "¥¥newsavebox{" "}･"]} then {
  1838.         message "newsavebox defined"
  1839.     } else {
  1840.         message "enter the command name of the sbox or savebox"
  1841.     }
  1842. }
  1843. proc sbox {} {
  1844.     if {[wrapObject "¥¥sbox{･}{" "}･"]} then {
  1845.         message "sbox set; enter the command name"
  1846.     } else {
  1847.         message "enter the command name of the sbox, then the text"
  1848.     }
  1849. }
  1850. proc savebox {} {
  1851.     if {[wrapObject "¥¥savebox{･}¥[･¥]¥[･¥]{" "}･"]} then {
  1852.         message "savebox set; enter the command name"
  1853.     } else {
  1854.         message "enter the command name of the savebox"
  1855.     }
  1856. }
  1857. proc usebox {} {
  1858.     if {[wrapObject "¥¥usebox{" "}･"]} then {
  1859.         message "usebox declared"
  1860.     } else {
  1861.         message "enter the command name of the sbox or savebox"
  1862.     }
  1863. }
  1864. proc raisebox {} {
  1865.     if {[wrapObject "¥¥raisebox{･}¥[･¥]¥[･¥]{" "}･"]} then {
  1866.         message "raisebox set; enter the displacement"
  1867.     } else {
  1868.         message "enter the displacement of the raisebox"
  1869.     }
  1870. }
  1871. proc parbox {} {
  1872.     if {[wrapObject "¥¥parbox¥[･¥]¥{･¥}{" "}･"]} then {
  1873.         message "parbox set; enter the position and width"
  1874.     } else {
  1875.         message "enter the position ¥[b|c|t¥] and width of the parbox, then the text"
  1876.     }
  1877. }
  1878. proc minipage {} {
  1879.     set arg "¥[･¥]{･}"
  1880.     wrapEnvironment "minipage" $arg ""
  1881.     nextTabStop
  1882.     message "enter the position ¥[b|c|t¥] of the minipage, then the width"
  1883. }
  1884. proc rule {} {
  1885.     insertObject "¥¥rule¥[･¥]¥{･¥}{･}･"
  1886.     nthTabStop -4
  1887.     message "enter the displacement of the rule, then width and height"
  1888. }
  1889.  
  1890. #--------------------------------------------------------------------------
  1891. # Misc:
  1892. #--------------------------------------------------------------------------
  1893.  
  1894. proc verb {} {
  1895.     if {[wrapObject "¥¥verb|" "|･"]} then {
  1896.         message "verbatim text set"
  1897.     } else {
  1898.         message "enter verbatim text"
  1899.     }
  1900. }
  1901. proc footnote {} {
  1902.     if {[wrapObject "¥¥footnote{" "}･"]} then {
  1903.         message "footnote set"
  1904.     } else {
  1905.         message "enter footnote"
  1906.     }
  1907. }
  1908. proc marginalNote {} {
  1909.     if {[wrapObject "¥¥marginpar{" "}･"]} then {
  1910.         message "marginal note set"
  1911.     } else {
  1912.         message "enter marginal note"
  1913.     }
  1914. }
  1915.  
  1916. proc label {} {
  1917.     if {[wrapObject "¥¥label{" "}･"]} then {
  1918.         message "label defined"
  1919.     } else {
  1920.         message "enter label"
  1921.     }
  1922. }
  1923. proc ref {} { 
  1924.     TeXRefCompletion "ref"
  1925. }
  1926. proc pageref {} { 
  1927.     TeXRefCompletion "pageref"
  1928. }
  1929. proc cite {} {
  1930.     if {[wrapObject "¥¥cite{" "}･"]} then {
  1931.         message "citation made"
  1932.     } else {
  1933.         message "enter citation key"
  1934.     }
  1935. }
  1936. proc nocite {} {
  1937.     if {[wrapObject "¥¥nocite{" "}･"]} then {
  1938.         message "citation added to the list"
  1939.     } else {
  1940.         message "enter citation key"
  1941.     }
  1942. }
  1943.  
  1944. # Insert an ¥item or a ¥bibitem, depending on the context.
  1945. proc insertItem {} {
  1946.     set command [eval getText [searchEnvironment]]
  1947.     set environment [extractCommandArg $command]
  1948.     switch $environment {
  1949.         "itemize" {
  1950.             set text "¥¥item  ･"
  1951.         }
  1952.         "enumerate" {
  1953.             set text "¥¥item  ･"
  1954.         }
  1955.         "description" {
  1956.             set text "¥¥item¥[･¥]  ･"
  1957.         }
  1958.         "thebibliography" {
  1959.             set text "¥¥bibitem{･}  ･"
  1960.         }
  1961.         default {
  1962.             beep
  1963.             message "insertItem: cursor in $environment environment"
  1964.             return
  1965.         }
  1966.     }
  1967.     set pos [getPos]
  1968.     # Indentation should mirror that of an existing ¥item
  1969.     # (if it exists)
  1970.     insertText [openingCarriageReturn]$text
  1971.     goto $pos
  1972.     nextTabStop
  1973. }
  1974.  
  1975. proc quotes {} {
  1976.     if {[wrapObject "`" "'･"]} then {
  1977.         message "text quoted"
  1978.     } else {
  1979.         message "enter text"
  1980.     }
  1981. }
  1982. proc dblQuotes {} {
  1983.     if {[wrapObject "``" "''･"]} then {
  1984.         message "text double quoted"
  1985.     } else {
  1986.         message "enter text"
  1987.     }
  1988. }
  1989.  
  1990. proc ldots {} {insertObject "¥¥ldots"}
  1991. proc {en-dash} {} {insertObject "--"}
  1992. proc {em-dash} {} {insertObject "---"}
  1993. proc texLogo {} {insertObject "¥¥TeX"}
  1994. proc latexLogo {} {insertObject "¥¥LaTeX"}
  1995. proc latex2eLogo {} {insertObject "¥¥LaTeXe"}
  1996. proc today {} {insertObject "¥¥today"}
  1997.  
  1998. proc dag {} {insertObject "¥¥dag"}
  1999. proc ddag {} {insertObject "¥¥ddag"}
  2000. proc sectionMark {} {insertObject "¥¥S"}
  2001. proc paragraphMark {} {insertObject "¥¥P"}
  2002. proc copyright {} {insertObject "¥¥copyright"}
  2003. proc pounds {} {insertObject "¥¥pounds"}
  2004.  
  2005.  
  2006. #############################################################################
  2007. # 
  2008. # Math Mode Macros
  2009. #
  2010. #############################################################################
  2011.  
  2012. #--------------------------------------------------------------------------
  2013. # Math Modes:
  2014. #--------------------------------------------------------------------------
  2015.  
  2016. proc texMath {} {
  2017.     checkMathMode "texMath" 0
  2018.     if {[wrapObject "$" "$･"]} then {
  2019.         message "formula set"
  2020.     } else {
  2021.         message "enter formula"
  2022.     }
  2023. }
  2024. proc texDisplaymath {} {
  2025.     checkMathMode "texDisplaymath" 0
  2026.     if {[wrapObject "$$" "$$･"]} then {
  2027.         message "displayed formula set"
  2028.     } else {
  2029.         message "enter displayed formula"
  2030.     }
  2031. }
  2032. proc latexMath {} {
  2033.     checkMathMode "latexMath" 0
  2034.     if {[wrapObject "¥¥( " " ¥¥)･"]} then {
  2035.         message "formula set"
  2036.     } else {
  2037.         message "enter formula"
  2038.     }
  2039. }
  2040. proc latexDisplaymath {} {
  2041.     checkMathMode "latexDisplaymath" 0
  2042.     if {[wrapObject "¥¥¥[ " " ¥¥¥]･"]} then {
  2043.         message "displayed formula set"
  2044.     } else {
  2045.         message "enter displayed formula"
  2046.     }
  2047. }
  2048.  
  2049. #--------------------------------------------------------------------------
  2050. # Math Style:
  2051. #--------------------------------------------------------------------------
  2052.  
  2053. proc mathit {} {
  2054.     checkMathMode "mathit" 1
  2055.     if {[wrapObject "¥¥mathit{" "}･"]} then {
  2056.         message "selected text is math italic"
  2057.     } else {
  2058.         message "enter text to be math italic"
  2059.     }
  2060. }
  2061. proc mathrm {} {
  2062.     checkMathMode "mathrm" 1
  2063.     if {[wrapObject "¥¥mathrm{" "}･"]} then {
  2064.         message "selected text is math roman"
  2065.     } else {
  2066.         message "enter text to be math roman"
  2067.     }
  2068. }
  2069. proc mathbf {} {
  2070.     checkMathMode "mathbf" 1
  2071.     if {[wrapObject "¥¥mathbf{" "}･"]} then {
  2072.         message "selected text is math bold"
  2073.     } else {
  2074.         message "enter text to be math bold"
  2075.     }
  2076. }
  2077. proc mathsf {} {
  2078.     checkMathMode "mathsf" 1
  2079.     if {[wrapObject "¥¥mathsf{" "}･"]} then {
  2080.         message "selected text is math sans serif"
  2081.     } else {
  2082.         message "enter text to be math sans serif"
  2083.     }
  2084. }
  2085. proc mathtt {} {
  2086.     checkMathMode "mathtt" 1
  2087.     if {[wrapObject "¥¥mathtt{" "}･"]} then {
  2088.         message "selected text is math typewriter"
  2089.     } else {
  2090.         message "enter text to be math typewriter"
  2091.     }
  2092. }
  2093. proc mathcal {} {
  2094.     checkMathMode "mathcal" 1
  2095.     # Allow upper-case arguments only:
  2096.     if {[isSelection] && ![isUppercase]} then {
  2097.         alertnote "argument to ¥¥mathcal must be uppercase"
  2098.         return
  2099.     }
  2100.     if {[wrapObject "¥¥mathcal{" "}･"]} then {
  2101.         message "selected text is calligraphic"
  2102.     } else {
  2103.         message "enter text to be calligraphic (UPPERCASE letters only)"
  2104.     }
  2105. }
  2106. proc displaystyle {} {
  2107.     checkMathMode "displaystyle" 1
  2108.     if {[wrapObject "{¥¥displaystyle " "}･"]} then {
  2109.         message "displaystyle set"
  2110.     } else {
  2111.         message "enter displaystyle text"
  2112.     }
  2113. }
  2114. proc textstyle {} {
  2115.     checkMathMode "textstyle" 1
  2116.     if {[wrapObject "{¥¥textstyle " "}･"]} then {
  2117.         message "textstyle set"
  2118.     } else {
  2119.         message "enter textstyle text"
  2120.     }
  2121. }
  2122. proc scriptstyle {} {
  2123.     checkMathMode "scriptstyle" 1
  2124.     if {[wrapObject "{¥¥scriptstyle " "}･"]} then {
  2125.         message "scriptstyle set"
  2126.     } else {
  2127.         message "enter scriptstyle text"
  2128.     }
  2129. }
  2130. proc scriptscriptstyle {} {
  2131.     checkMathMode "scriptscriptstyle" 1
  2132.     if {[wrapObject "{¥¥scriptscriptstyle " "}･"]} then {
  2133.         message "scriptscriptstyle set"
  2134.     } else {
  2135.         message "enter scriptscriptstyle text"
  2136.     }
  2137. }
  2138.  
  2139. #--------------------------------------------------------------------------
  2140. # Math Environments:
  2141. #--------------------------------------------------------------------------
  2142.  
  2143. proc math {} { checkMathMode "math" 0; doWrapEnvironment "math" }
  2144. proc displaymath {} {
  2145.     checkMathMode "displaymath" 0
  2146.     global TeXmodeVars
  2147.     if { $TeXmodeVars(useBrackets) } {
  2148.         doWrapStructure {¥[} {} {¥]}
  2149.     } else {
  2150.         doWrapEnvironment "displaymath"
  2151.     }
  2152. }
  2153. proc equation {} {
  2154.     checkMathMode "equation" 0
  2155.     set envName "equation"
  2156.     set body "¥t¥¥label{･}¥r"
  2157.     if {[wrapEnvironment $envName "" $body]} then {
  2158.         set msgText "equation wrapped"
  2159.     } else {
  2160.         set msgText "enter equation"
  2161.     }
  2162.     nextTabStop
  2163.     message $msgText
  2164. }
  2165. proc eqnarrayStar {} {
  2166.     global promptNoisily useStatusBar
  2167.     checkMathMode "eqnarrayStar" 0
  2168.     set envName "eqnarray*"
  2169.     if {$promptNoisily && $useStatusBar} {beep}
  2170.     catch {sPrompt "$envName:  how many rows?" 3} numberRows
  2171.     if {$numberRows == "cancel"} then {
  2172.         return
  2173.     } elseif {![isPositiveInteger $numberRows]} then {
  2174.         beep
  2175.         message "invalid input:  unsigned, postive integer required"
  2176.         return
  2177.     }
  2178.     set row "¥t[buildRow 3]"
  2179.     for {set i 1} {$i < $numberRows} {incr i} {
  2180.         append body $row
  2181.         append body "  ¥¥¥¥¥r"
  2182.     }
  2183.     append body $row
  2184.     append body "¥r"
  2185.     if {[insertEnvironment $envName "" $body]} then {
  2186.         nextTabStop
  2187.         message "type first item"
  2188.     }
  2189. }
  2190. proc eqnarray {} {
  2191.     global promptNoisily useStatusBar
  2192.     checkMathMode "eqnarray" 0
  2193.     set envName "eqnarray"
  2194.     if {$promptNoisily && $useStatusBar} {beep}
  2195.     catch {sPrompt "$envName:  how many rows?" 3} numberRows
  2196.     if {$numberRows == "cancel"} then {
  2197.         return
  2198.     } elseif {![isPositiveInteger $numberRows]} then {
  2199.         beep
  2200.         message "invalid input:  unsigned, postive integer required"
  2201.         return
  2202.     }
  2203.     set row "¥t[buildRow 3]¥r¥t¥¥label{･}"
  2204.     for {set i 1} {$i < $numberRows} {incr i} {
  2205.         append body $row
  2206.         append body "  ¥¥¥¥¥r"
  2207.     }
  2208.     append body $row
  2209.     append body "¥r"
  2210.     if {[insertEnvironment $envName "" $body]} then {
  2211.         nextTabStop
  2212.         message "type first item"
  2213.     }
  2214. }
  2215. proc myArray {} {
  2216.     global promptNoisily useStatusBar
  2217.     checkMathMode "myArray" 1
  2218.     set envName "array"
  2219.     if {$promptNoisily && $useStatusBar} {beep}
  2220.     catch {sPrompt "$envName:  how many rows?" 3} numberRows
  2221.     if {$numberRows == "cancel"} then {
  2222.         return
  2223.     } elseif {![isPositiveInteger $numberRows]} then {
  2224.         beep
  2225.         message "invalid input:  unsigned, postive integer required"
  2226.         return
  2227.     }
  2228.     if {$promptNoisily && $useStatusBar} {beep}
  2229.     catch {sPrompt "$envName:  how many columns?" 3} numberCols
  2230.     if {$numberCols == "cancel"} then {
  2231.         return
  2232.     } elseif {![isPositiveInteger $numberCols]} then {
  2233.         beep
  2234.         message "invalid input:  unsigned, postive integer required"
  2235.         return
  2236.     }
  2237.     set arg "{"
  2238.     for {set j 1} {$j <= $numberCols} {incr j} {
  2239.         append arg "c"
  2240.     }
  2241.     append arg "}"
  2242.     set row "¥t[buildRow $numberCols]"
  2243.     for {set i 1} {$i < $numberRows} {incr i} {
  2244.         append body $row
  2245.         append body "  ¥¥¥¥¥r"
  2246.     }
  2247.     append body $row
  2248.     append body "¥r"
  2249.     if {[insertEnvironment $envName $arg $body]} then {
  2250.         set searchResult [search -s -n -f 1 -m 0 -i 1 -r 1 {c+} [getPos]]
  2251.         select [lindex $searchResult 0] [lindex $searchResult 1]
  2252.         message "Modify this argument?"
  2253.     }
  2254. }
  2255.  
  2256. #--------------------------------------------------------------------------
  2257. # Formulas:
  2258. #--------------------------------------------------------------------------
  2259.  
  2260. proc subscript {} {
  2261.     checkMathMode "subscript" 1
  2262.     if {[wrapObject "_{" "}･"]} then {
  2263.         message "subscript set"
  2264.     } else {
  2265.         message "enter subscript"
  2266.     }
  2267. }
  2268. proc superscript {} {
  2269.     checkMathMode "superscript" 1
  2270.     if {[wrapObject "^{" "}･"]} then {
  2271.         message "superscript set"
  2272.     } else {
  2273.         message "enter superscript"
  2274.     }
  2275. }
  2276. proc fraction {} {
  2277.     checkMathMode "fraction" 1
  2278.     set currentPos [getPos]
  2279.     if {[isSelection]} then {
  2280.         set selection [getSelect]
  2281.         set args [split $selection /]
  2282.         set len [llength $args]
  2283.         deleteText $currentPos [selEnd]
  2284.         if {$len == 1} then {
  2285.             insertObject "¥¥frac{$selection}{･}･"
  2286.             goto $currentPos
  2287.             nextTabStop
  2288.             message "enter denominator"
  2289.         } else {
  2290.             set firstArg [lindex $args 0]
  2291.             set restArgs [lrange $args 1 [expr $len-1]]
  2292.             insertObject "¥¥frac{$firstArg}{[join $restArgs /]}"
  2293.             if {$len > 2} {message "beware of multiple /"}
  2294.         }
  2295.     } else {
  2296.         insertObject "¥¥frac{･}{･}･"
  2297.         goto $currentPos
  2298.         nextTabStop
  2299.         message "enter numerator"
  2300.     }
  2301. }
  2302. proc squareRoot {} {
  2303.     checkMathMode "squareRoot" 1
  2304.     if {[wrapObject "¥¥sqrt{" "}･"]} then {
  2305.         message "square root set"
  2306.     } else {
  2307.         message "enter formula"
  2308.     }
  2309. }
  2310. proc nthRoot {} {
  2311.     checkMathMode "nthRoot" 1
  2312.     if {[wrapObject "¥¥sqrt¥[･¥]{" "}･"]} then {
  2313.         message "enter root"
  2314.     } else {
  2315.         message "enter root, then formula"
  2316.     }
  2317. }
  2318. proc oneParameter {} {
  2319.     checkMathMode "oneParameter" 1
  2320.     if {[wrapObject "¥¥･{" "}･"]} then {
  2321.         message "enter command name"
  2322.     } else {
  2323.         message "enter command name, press <Tab>, enter argument"
  2324.     }
  2325. }
  2326. proc twoParameters {} {
  2327.     checkMathMode "twoParameters" 1
  2328.     if {[wrapObject "¥¥･{" "}{･}･"]} then {
  2329.         message "enter command name"
  2330.     } else {
  2331.         message "enter command name, press <Tab>, enter argument, etc."
  2332.     }
  2333. }
  2334.  
  2335. #--------------------------------------------------------------------------
  2336. # Greek:
  2337. #--------------------------------------------------------------------------
  2338.  
  2339. proc alpha {} {checkMathMode "alpha" 1; insertObject "¥¥alpha"}
  2340. proc beta {} {checkMathMode "beta" 1; insertObject "¥¥beta"}
  2341. proc gamma {} {checkMathMode "gamma" 1; insertObject "¥¥gamma"}
  2342. proc delta {} {checkMathMode "delta" 1; insertObject "¥¥delta"}
  2343. proc epsilon {} {checkMathMode "epsilon" 1; insertObject "¥¥epsilon"}
  2344. proc zeta {} {checkMathMode "zeta" 1; insertObject "¥¥zeta"}
  2345. proc eta {} {checkMathMode "eta" 1; insertObject "¥¥eta"}
  2346. proc theta {} {checkMathMode "theta" 1; insertObject "¥¥theta"}
  2347. proc iota {} {checkMathMode "iota" 1; insertObject "¥¥iota"}
  2348. proc kappa {} {checkMathMode "kappa" 1; insertObject "¥¥kappa"}
  2349. proc lambda {} {checkMathMode "lambda" 1; insertObject "¥¥lambda"}
  2350. proc mu {} {checkMathMode "mu" 1; insertObject "¥¥mu"}
  2351. proc nu {} {checkMathMode "nu" 1; insertObject "¥¥nu"}
  2352. proc xi {} {checkMathMode "xi" 1; insertObject "¥¥xi"}
  2353. proc omicron {} {checkMathMode "omicron" 1; insertObject "o"}
  2354. proc pi {} {checkMathMode "pi" 1; insertObject "¥¥pi"}
  2355. proc rho {} {checkMathMode "rho" 1; insertObject "¥¥rho"}
  2356. proc sigma {} {checkMathMode "sigma" 1; insertObject "¥¥sigma"}
  2357. proc tau {} {checkMathMode "tau" 1; insertObject "¥¥tau"}
  2358. proc upsilon {} {checkMathMode "upsilon" 1; insertObject "¥¥upsilon"}
  2359. proc phi {} {checkMathMode "phi" 1; insertObject "¥¥phi"}
  2360. proc chi {} {checkMathMode "chi" 1; insertObject "¥¥chi"}
  2361. proc psi {} {checkMathMode "psi" 1; insertObject "¥¥psi"}
  2362. proc omega {} {checkMathMode "omega" 1; insertObject "¥¥omega"}
  2363.  
  2364. proc Gamma {} {checkMathMode "Gamma" 1; insertObject "¥¥Gamma"}
  2365. proc Delta {} {checkMathMode "Delta" 1; insertObject "¥¥Delta"}
  2366. proc Theta {} {checkMathMode "Theta" 1; insertObject "¥¥Theta"}
  2367. proc Lambda {} {checkMathMode "Lambda" 1; insertObject "¥¥Lambda"}
  2368. proc Xi {} {checkMathMode "Xi" 1; insertObject "¥¥Xi"}
  2369. proc Pi {} {checkMathMode "Pi" 1; insertObject "¥¥Pi"}
  2370. proc Sigma {} {checkMathMode "Sigma" 1; insertObject "¥¥Sigma"}
  2371. proc Upsilon {} {checkMathMode "Upsilon" 1; insertObject "¥¥Upsilon"}
  2372. proc Phi {} {checkMathMode "Phi" 1; insertObject "¥¥Phi"}
  2373. proc Psi {} {checkMathMode "Psi" 1; insertObject "¥¥Psi"}
  2374. proc Omega {} {checkMathMode "Omega" 1; insertObject "¥¥Omega"}
  2375.  
  2376. proc varepsilon {} {checkMathMode "varepsilon" 1; insertObject "¥¥varepsilon"}
  2377. proc vartheta {} {checkMathMode "vartheta" 1; insertObject "¥¥vartheta"}
  2378. proc varpi {} {checkMathMode "varpi" 1; insertObject "¥¥varpi"}
  2379. proc varrho {} {checkMathMode "varrho" 1; insertObject "¥¥varrho"}
  2380. proc varsigma {} {checkMathMode "varsigma" 1; insertObject "¥¥varsigma"}
  2381. proc varphi {} {checkMathMode "varphi" 1; insertObject "¥¥varphi"}
  2382.  
  2383. #--------------------------------------------------------------------------
  2384. # Binary Ops:
  2385. #--------------------------------------------------------------------------
  2386.  
  2387. proc pm {} {checkMathMode "pm" 1; insertObject "¥¥pm"}
  2388. proc mp {} {checkMathMode "mp" 1; insertObject "¥¥mp"}
  2389. proc times {} {checkMathMode "times" 1; insertObject "¥¥times"}
  2390. proc div {} {checkMathMode "div" 1; insertObject "¥¥div"}
  2391. proc ast {} {checkMathMode "ast" 1; insertObject "¥¥ast"}
  2392. proc star {} {checkMathMode "star" 1; insertObject "¥¥star"}
  2393. proc circ {} {checkMathMode "circ" 1; insertObject "¥¥circ"}
  2394. proc bullet {} {checkMathMode "bullet" 1; insertObject "¥¥bullet"}
  2395. proc cdot {} {checkMathMode "cdot" 1; insertObject "¥¥cdot"}
  2396. proc cap {} {checkMathMode "cap" 1; insertObject "¥¥cap"}
  2397. proc cup {} {checkMathMode "cup" 1; insertObject "¥¥cup"}
  2398. proc uplus {} {checkMathMode "uplus" 1; insertObject "¥¥uplus"}
  2399. proc sqcap {} {checkMathMode "sqcap" 1; insertObject "¥¥sqcap"}
  2400. proc sqcup {} {checkMathMode "sqcup" 1; insertObject "¥¥sqcup"}
  2401. proc vee {} {checkMathMode "vee" 1; insertObject "¥¥vee"}
  2402. proc wedge {} {checkMathMode "wedge" 1; insertObject "¥¥wedge"}
  2403. proc setminus {} {checkMathMode "setminus" 1; insertObject "¥¥setminus"}
  2404. proc wr {} {checkMathMode "wr" 1; insertObject "¥¥wr"}
  2405. proc diamond {} {checkMathMode "diamond" 1; insertObject "¥¥diamond"}
  2406. proc bigtriangleup {} {
  2407.     checkMathMode "bigtriangleup" 1; insertObject "¥¥bigtriangleup"
  2408. }
  2409. proc bigtriangledown {} {
  2410.     checkMathMode "bigtriangledown" 1; insertObject "¥¥bigtriangledown"
  2411. }
  2412. proc triangleleft {} {
  2413.     checkMathMode "triangleleft" 1; insertObject "¥¥triangleleft"
  2414. }
  2415. proc triangleright {} {
  2416.     checkMathMode "triangleright" 1; insertObject "¥¥triangleright"
  2417. }
  2418. proc lhd {} {
  2419.     if {[isSymbolPackageLoaded]} then {
  2420.         checkMathMode "lhd" 1; insertObject "¥¥lhd"
  2421.     }
  2422. }
  2423. proc rhd {} {
  2424.     if {[isSymbolPackageLoaded]} then {
  2425.         checkMathMode "rhd" 1; insertObject "¥¥rhd"
  2426.     }
  2427. }
  2428. proc unlhd {} {
  2429.     if {[isSymbolPackageLoaded]} then {
  2430.         checkMathMode "unlhd" 1; insertObject "¥¥unlhd"
  2431.     }
  2432. }
  2433. proc unrhd {} {
  2434.     if {[isSymbolPackageLoaded]} then {
  2435.         checkMathMode "unrhd" 1; insertObject "¥¥unrhd"
  2436.     }
  2437. }
  2438. proc oplus {} {checkMathMode "oplus" 1; insertObject "¥¥oplus"}
  2439. proc ominus {} {checkMathMode "ominus" 1; insertObject "¥¥ominus"}
  2440. proc otimes {} {checkMathMode "otimes" 1; insertObject "¥¥otimes"}
  2441. proc oslash {} {checkMathMode "oslash" 1; insertObject "¥¥oslash"}
  2442. proc odot {} {checkMathMode "odot" 1; insertObject "¥¥odot"}
  2443. proc bigcirc {} {checkMathMode "bigcirc" 1; insertObject "¥¥bigcirc"}
  2444. proc dagger {} {checkMathMode "dagger" 1; insertObject "¥¥dagger"}
  2445. proc ddagger {} {checkMathMode "ddagger" 1; insertObject "¥¥ddagger"}
  2446. proc amalg {} {checkMathMode "amalg" 1; insertObject "¥¥amalg"}
  2447.  
  2448. #--------------------------------------------------------------------------
  2449. # Relations:
  2450. #--------------------------------------------------------------------------
  2451.  
  2452. proc leq {} {checkMathMode "leq" 1; insertObject "¥¥leq"}
  2453. proc prec {} {checkMathMode "prec" 1; insertObject "¥¥prec"}
  2454. proc preceq {} {checkMathMode "preceq" 1; insertObject "¥¥preceq"}
  2455. proc myLl {} {checkMathMode "myLl" 1; insertObject "¥¥ll"}
  2456. proc subset {} {checkMathMode "subset" 1; insertObject "¥¥subset"}
  2457. proc subseteq {} {checkMathMode "subseteq" 1; insertObject "¥¥subseteq"}
  2458. proc sqsubset {} {
  2459.     if {[isSymbolPackageLoaded]} then {
  2460.         checkMathMode "sqsubset" 1; insertObject "¥¥sqsubset"
  2461.     }
  2462. }
  2463. proc sqsubseteq {} {checkMathMode "sqsubseteq" 1; insertObject "¥¥sqsubseteq"}
  2464. proc in {} {checkMathMode "in" 1; insertObject "¥¥in"}
  2465. proc vdash {} {checkMathMode "vdash" 1; insertObject "¥¥vdash"}
  2466.  
  2467. proc geq {} {checkMathMode "geq" 1; insertObject "¥¥geq"}
  2468. proc succ {} {checkMathMode "succ" 1; insertObject "¥¥succ"}
  2469. proc succeq {} {checkMathMode "succeq" 1; insertObject "¥¥succeq"}
  2470. proc gg {} {checkMathMode "gg" 1; insertObject "¥¥gg"}
  2471. proc supset {} {checkMathMode "supset" 1; insertObject "¥¥supset"}
  2472. proc supseteq {} {checkMathMode "supseteq" 1; insertObject "¥¥supseteq"}
  2473. proc sqsupset {} {
  2474.     if {[isSymbolPackageLoaded]} then {
  2475.         checkMathMode "sqsupset" 1; insertObject "¥¥sqsupset"
  2476.     }
  2477. }
  2478. proc sqsupseteq {} {checkMathMode "sqsupseteq" 1; insertObject "¥¥sqsupseteq"}
  2479. proc ni {} {checkMathMode "ni" 1; insertObject "¥¥ni"}
  2480. proc dashv {} {checkMathMode "dashv" 1; insertObject "¥¥dashv"}
  2481.  
  2482. proc equiv {} {checkMathMode "equiv" 1; insertObject "¥¥equiv"}
  2483. proc sim {} {checkMathMode "sim" 1; insertObject "¥¥sim"}
  2484. proc simeq {} {checkMathMode "simeq" 1; insertObject "¥¥simeq"}
  2485. proc asymp {} {checkMathMode "asymp" 1; insertObject "¥¥asymp"}
  2486. proc approx {} {checkMathMode "approx" 1; insertObject "¥¥approx"}
  2487. proc cong {} {checkMathMode "cong" 1; insertObject "¥¥cong"}
  2488. proc neq {} {checkMathMode "neq" 1; insertObject "¥¥neq"}
  2489. proc doteq {} {checkMathMode "doteq" 1; insertObject "¥¥doteq"}
  2490. proc propto {} {checkMathMode "propto" 1; insertObject "¥¥propto"}
  2491.  
  2492. proc models {} {checkMathMode "models" 1; insertObject "¥¥models"}
  2493. proc perp {} {checkMathMode "perp" 1; insertObject "¥¥perp"}
  2494. proc mid {} {checkMathMode "mid" 1; insertObject "¥¥mid"}
  2495. proc parallel {} {checkMathMode "parallel" 1; insertObject "¥¥parallel"}
  2496. proc bowtie {} {checkMathMode "bowtie" 1; insertObject "¥¥bowtie"}
  2497. proc myJoin {} {
  2498.     if {[isSymbolPackageLoaded]} then {
  2499.         checkMathMode "myJoin" 1; insertObject "¥¥join"
  2500.     }
  2501. }
  2502. proc smile {} {checkMathMode "smile" 1; insertObject "¥¥smile"}
  2503. proc frown {} {checkMathMode "frown" 1; insertObject "¥¥frown"}
  2504.  
  2505. #--------------------------------------------------------------------------
  2506. # Arrows:
  2507. #--------------------------------------------------------------------------
  2508.  
  2509. proc leftarrow {} {checkMathMode "leftarrow" 1; insertObject "¥¥leftarrow"}
  2510. proc Leftarrow {} {checkMathMode "Leftarrow" 1; insertObject "¥¥Leftarrow"}
  2511. proc rightarrow {} {checkMathMode "rightarrow" 1; insertObject "¥¥rightarrow"}
  2512. proc Rightarrow {} {checkMathMode "Rightarrow" 1; insertObject "¥¥Rightarrow"}
  2513. proc leftrightarrow {} {
  2514.     checkMathMode "leftrightarrow" 1; insertObject "¥¥leftrightarrow"
  2515. }
  2516. proc Leftrightarrow {} {
  2517.     checkMathMode "Leftrightarrow" 1; insertObject "¥¥Leftrightarrow"
  2518. }
  2519. proc mapsto {} {checkMathMode "mapsto" 1; insertObject "¥¥mapsto"}
  2520. proc hookleftarrow {} {
  2521.     checkMathMode "hookleftarrow" 1; insertObject "¥¥hookleftarrow"
  2522. }
  2523. proc leftharpoonup {} {
  2524.     checkMathMode "leftharpoonup" 1; insertObject "¥¥leftharpoonup"
  2525. }
  2526. proc leftharpoondown {} {
  2527.     checkMathMode "leftharpoondown" 1; insertObject "¥¥leftharpoondown"
  2528. }
  2529. proc rightleftharpoons {} {
  2530.     checkMathMode "rightleftharpoons" 1; insertObject "¥¥rightleftharpoons"
  2531. }
  2532.  
  2533. proc longleftarrow {} {
  2534.     checkMathMode "longleftarrow" 1; insertObject "¥¥longleftarrow"
  2535. }
  2536. proc Longleftarrow {} {
  2537.     checkMathMode "Longleftarrow" 1; insertObject "¥¥Longleftarrow"
  2538. }
  2539. proc longrightarrow {} {
  2540.     checkMathMode "longrightarrow" 1; insertObject "¥¥longrightarrow"
  2541. }
  2542. proc Longrightarrow {} {
  2543.     checkMathMode "Longrightarrow" 1; insertObject "¥¥Longrightarrow"
  2544. }
  2545. proc longleftrightarrow {} {
  2546.     checkMathMode "longleftrightarrow" 1; insertObject "¥¥longleftrightarrow"
  2547. }
  2548. proc Longleftrightarrow {} {
  2549.     checkMathMode "Longleftrightarrow" 1; insertObject "¥¥Longleftrightarrow"
  2550. }
  2551. proc longmapsto {} {checkMathMode "longmapsto" 1; insertObject "¥¥longmapsto"}
  2552. proc hookrightarrow {} {
  2553.     checkMathMode "hookrightarrow" 1; insertObject "¥¥hookrightarrow"
  2554. }
  2555. proc rightharpoonup {} {
  2556.     checkMathMode "rightharpoonup" 1; insertObject "¥¥rightharpoonup"
  2557. }
  2558. proc rightharpoondown {} {
  2559.     checkMathMode "rightharpoondown" 1; insertObject "¥¥rightharpoondown"
  2560. }
  2561. proc leadsto {} {
  2562.     if {[isSymbolPackageLoaded]} then {
  2563.         checkMathMode "leadsto" 1; insertObject "¥¥leadsto"
  2564.     }
  2565. }
  2566. proc uparrow {} {checkMathMode "uparrow" 1; insertObject "¥¥uparrow"}
  2567. proc Uparrow {} {checkMathMode "Uparrow" 1; insertObject "¥¥Uparrow"}
  2568. proc downarrow {} {checkMathMode "downarrow" 1; insertObject "¥¥downarrow"}
  2569. proc Downarrow {} {checkMathMode "Downarrow" 1; insertObject "¥¥Downarrow"}
  2570. proc updownarrow {} {checkMathMode "updownarrow" 1; insertObject "¥¥updownarrow"}
  2571. proc Updownarrow {} {checkMathMode "Updownarrow" 1; insertObject "¥¥Updownarrow"}
  2572. proc nearrow {} {checkMathMode "nearrow" 1; insertObject "¥¥nearrow"}
  2573. proc searrow {} {checkMathMode "searrow" 1; insertObject "¥¥searrow"}
  2574. proc swarrow {} {checkMathMode "swarrow" 1; insertObject "¥¥swarrow"}
  2575. proc nwarrow {} {checkMathMode "nwarrow" 1; insertObject "¥¥nwarrow"}
  2576.  
  2577. #--------------------------------------------------------------------------
  2578. # Dots:
  2579. #--------------------------------------------------------------------------
  2580.  
  2581. proc cdots {} {checkMathMode "cdots" 1; insertObject "¥¥cdots"}
  2582. proc vdots {} {checkMathMode "vdots" 1; insertObject "¥¥vdots"}
  2583. proc ddots {} {checkMathMode "ddots" 1; insertObject "¥¥ddots"}
  2584.  
  2585. #--------------------------------------------------------------------------
  2586. # Symbols:
  2587. #--------------------------------------------------------------------------
  2588.  
  2589. proc aleph {} {checkMathMode "aleph" 1; insertObject "¥¥aleph"}
  2590. proc hbar {} {checkMathMode "hbar" 1; insertObject "¥¥hbar"}
  2591. proc imath {} {checkMathMode "imath" 1; insertObject "¥¥imath"}
  2592. proc jmath {} {checkMathMode "jmath" 1; insertObject "¥¥jmath"}
  2593. proc ell {} {checkMathMode "ell" 1; insertObject "¥¥ell"}
  2594. proc wp {} {checkMathMode "wp" 1; insertObject "¥¥wp"}
  2595. proc Re {} {checkMathMode "Re" 1; insertObject "¥¥Re"}
  2596. proc Im {} {checkMathMode "Im" 1; insertObject "¥¥Im"}
  2597. proc mho {} {
  2598.     if {[isSymbolPackageLoaded]} then {
  2599.         checkMathMode "mho" 1; insertObject "¥¥mho"
  2600.     }
  2601. }
  2602. proc prime {} {checkMathMode "prime" 1; insertObject "¥¥prime"}
  2603. proc emptyset {} {checkMathMode "emptyset" 1; insertObject "¥¥emptyset"}
  2604. proc nabla {} {checkMathMode "nabla" 1; insertObject "¥¥nabla"}
  2605. proc surd {} {checkMathMode "surd" 1; insertObject "¥¥surd"}
  2606. proc top {} {checkMathMode "top" 1; insertObject "¥¥top"}
  2607. proc bot {} {checkMathMode "bot" 1; insertObject "¥¥bot"}
  2608. # proc | {} {checkMathMode "|" 1; insertObject "¥¥|"}
  2609. proc angle {} {checkMathMode "angle" 1; insertObject "¥¥angle"}
  2610. proc forall {} {checkMathMode "forall" 1; insertObject "¥¥forall"}
  2611. proc exists {} {checkMathMode "exists" 1; insertObject "¥¥exists"}
  2612. proc neg {} {checkMathMode "neg" 1; insertObject "¥¥neg"}
  2613. proc flat {} {checkMathMode "flat" 1; insertObject "¥¥flat"}
  2614. proc natural {} {checkMathMode "natural" 1; insertObject "¥¥natural"}
  2615. proc sharp {} {checkMathMode "sharp" 1; insertObject "¥¥sharp"}
  2616. proc backslash {} {checkMathMode "backslash" 1; insertObject "¥¥backslash"}
  2617. proc partial {} {checkMathMode "partial" 1; insertObject "¥¥partial"}
  2618. proc infty {} {checkMathMode "infty" 1; insertObject "¥¥infty"}
  2619. proc Box {} {
  2620.     if {[isSymbolPackageLoaded]} then {
  2621.         checkMathMode "Box" 1; insertObject "¥¥Box"
  2622.     }
  2623. }
  2624. proc Diamond {} {
  2625.     if {[isSymbolPackageLoaded]} then {
  2626.         checkMathMode "Diamond" 1; insertObject "¥¥Diamond"
  2627.     }
  2628. }
  2629. proc triangle {} {checkMathMode "triangle" 1; insertObject "¥¥triangle"}
  2630. proc clubsuit {} {checkMathMode "clubsuit" 1; insertObject "¥¥clubsuit"}
  2631. proc diamondsuit {} {checkMathMode "diamondsuit" 1; insertObject "¥¥diamondsuit"}
  2632. proc heartsuit {} {checkMathMode "heartsuit" 1; insertObject "¥¥heartsuit"}
  2633. proc spadesuit {} {checkMathMode "spadesuit" 1; insertObject "¥¥spadesuit"}
  2634.  
  2635. #--------------------------------------------------------------------------
  2636. # Functions:
  2637. #--------------------------------------------------------------------------
  2638.  
  2639. proc arccos {} {checkMathMode "arccos" 1; insertObject "¥¥arccos"}
  2640. proc arcsin {} {checkMathMode "arcsin" 1; insertObject "¥¥arcsin"}
  2641. proc arctan {} {checkMathMode "arctan" 1; insertObject "¥¥arctan"}
  2642. proc arg {} {checkMathMode "arg" 1; insertObject "¥¥arg"}
  2643. proc cos {} {checkMathMode "cos" 1; insertObject "¥¥cos"}
  2644. proc cosh {} {checkMathMode "cosh" 1; insertObject "¥¥cosh"}
  2645. proc cot {} {checkMathMode "cot" 1; insertObject "¥¥cot"}
  2646. proc coth {} {checkMathMode "coth" 1; insertObject "¥¥coth"}
  2647. proc csc {} {checkMathMode "csc" 1; insertObject "¥¥csc"}
  2648. proc deg {} {checkMathMode "deg" 1; insertObject "¥¥deg"}
  2649. proc det {} {checkMathMode "det" 1; insertObject "¥¥det"}
  2650. proc dim {} {checkMathMode "dim" 1; insertObject "¥¥dim"}
  2651. proc exp {} {checkMathMode "exp" 1; insertObject "¥¥exp"}
  2652. proc gcd {} {checkMathMode "gcd" 1; insertObject "¥¥gcd"}
  2653. proc hom {} {checkMathMode "hom" 1; insertObject "¥¥hom"}
  2654. # proc inf {} {checkMathMode "inf" 1; insertObject "¥¥inf"}
  2655. proc inf {} {
  2656.     checkMathMode "inf" 1
  2657.     if {[wrapObject "¥¥inf_{" "}･"]} then {
  2658.         message "limit set"
  2659.     } else {
  2660.         message "enter limit"
  2661.     }
  2662. }
  2663. proc ker {} {checkMathMode "ker" 1; insertObject "¥¥ker"}
  2664. proc lg {} {checkMathMode "lg" 1; insertObject "¥¥lg"}
  2665. # proc lim {} {checkMathMode "lim" 1; insertObject "¥¥lim"}
  2666. proc lim {} {
  2667.     checkMathMode "lim" 1
  2668.     if {[wrapObject "¥¥lim_{" "}･"]} then {
  2669.         message "limit set"
  2670.     } else {
  2671.         message "enter limit"
  2672.     }
  2673. }
  2674. # proc liminf {} {checkMathMode "liminf" 1; insertObject "¥¥liminf"}
  2675. proc liminf {} {
  2676.     checkMathMode "liminf" 1
  2677.     if {[wrapObject "¥¥liminf_{" "}･"]} then {
  2678.         message "limit set"
  2679.     } else {
  2680.         message "enter limit"
  2681.     }
  2682. }
  2683. # proc limsup {} {checkMathMode "limsup" 1; insertObject "¥¥limsup"}
  2684. proc limsup {} {
  2685.     checkMathMode "limsup" 1
  2686.     if {[wrapObject "¥¥limsup_{" "}･"]} then {
  2687.         message "limit set"
  2688.     } else {
  2689.         message "enter limit"
  2690.     }
  2691. }
  2692. proc ln {} {checkMathMode "ln" 1; insertObject "¥¥ln"}
  2693. proc log {} {checkMathMode "log" 1; insertObject "¥¥log"}
  2694. # proc max {} {checkMathMode "max" 1; insertObject "¥¥max"}
  2695. proc max {} {
  2696.     checkMathMode "max" 1
  2697.     if {[wrapObject "¥¥max_{" "}･"]} then {
  2698.         message "limit set"
  2699.     } else {
  2700.         message "enter limit"
  2701.     }
  2702. }
  2703. # proc min {} {checkMathMode "min" 1; insertObject "¥¥min"}
  2704. proc min {} {
  2705.     checkMathMode "min" 1
  2706.     if {[wrapObject "¥¥min_{" "}･"]} then {
  2707.         message "limit set"
  2708.     } else {
  2709.         message "enter limit"
  2710.     }
  2711. }
  2712. proc Pr {} {checkMathMode "Pr" 1; insertObject "¥¥Pr"}
  2713. proc sec {} {checkMathMode "sec" 1; insertObject "¥¥sec"}
  2714. proc sin {} {checkMathMode "sin" 1; insertObject "¥¥sin"}
  2715. proc sinh {} {checkMathMode "sinh" 1; insertObject "¥¥sinh"}
  2716. # proc sup {} {checkMathMode "sup" 1; insertObject "¥¥sup"}
  2717. proc sup {} {
  2718.     checkMathMode "sup" 1
  2719.     if {[wrapObject "¥¥sup_{" "}･"]} then {
  2720.         message "limit set"
  2721.     } else {
  2722.         message "enter limit"
  2723.     }
  2724. }
  2725. proc tan {} {checkMathMode "tan" 1; insertObject "¥¥tan"}
  2726. proc tanh {} {checkMathMode "tanh" 1; insertObject "¥¥tanh"}
  2727.  
  2728. proc bmod {} {checkMathMode "bmod" 1; insertObject "¥¥bmod"}
  2729. proc pmod {} {
  2730.     checkMathMode "pmod" 1
  2731.     if {[wrapObject "¥¥pmod{" "}･"]} then {
  2732.         message "parenthesized mod set"
  2733.     } else {
  2734.         message "enter formula"
  2735.     }
  2736. }
  2737.  
  2738. #--------------------------------------------------------------------------
  2739. # Large Ops:
  2740. #--------------------------------------------------------------------------
  2741.  
  2742. proc insertLargeOp {commandName} {
  2743.     checkMathMode "$commandName" 1
  2744.     set currentPos [getPos]
  2745.     insertObject "¥¥$commandName¥_{･}^{･}･"
  2746.     goto $currentPos
  2747.     nextTabStop
  2748. }
  2749. proc sum {} {insertLargeOp "sum"}
  2750. proc prod {} {insertLargeOp "prod"}
  2751. proc coprod {} {insertLargeOp "coprod"}
  2752. proc int {} {insertLargeOp "int"}
  2753. proc oint {} {insertLargeOp "oint"}
  2754. proc bigcap {} {insertLargeOp "bigcap"}
  2755. proc bigcup {} {insertLargeOp "bigcup"}
  2756. proc bigsqcup {} {insertLargeOp "bigsqcup"}
  2757. proc bigvee {} {insertLargeOp "bigvee"}
  2758. proc bigwedge {} {insertLargeOp "bigwedge"}
  2759. proc bigodot {} {insertLargeOp "bigodot"}
  2760. proc bigotimes {} {insertLargeOp "bigotimes"}
  2761. proc bigoplus {} {insertLargeOp "bigoplus"}
  2762. proc biguplus {} {insertLargeOp "biguplus"}
  2763.  
  2764. #--------------------------------------------------------------------------
  2765. # Delimiters:
  2766. #--------------------------------------------------------------------------
  2767.  
  2768. proc delimitObject {leftDelim rightDelim} {
  2769.     if {[wrapObject $leftDelim $rightDelim]} then {
  2770.         message "formula delimited"
  2771.     } else {
  2772.         message "enter formula"
  2773.     }
  2774. }
  2775. proc parentheses {} { checkMathMode "parentheses" 1; delimitObject "(" ")･" }
  2776. proc brackets {} { checkMathMode "brackets" 1; delimitObject "¥[" "¥]･" }
  2777. proc braces {} { checkMathMode "braces" 1; delimitObject "¥¥¥{" "¥¥¥}･" }
  2778. proc absoluteValue {} { checkMathMode "absoluteValue" 1; delimitObject "|" "|･" }
  2779. proc getDelims {} {
  2780.     catch {prompt "Choose delimiters:" "parentheses" "" "parentheses" ¥
  2781.                   "brackets" "braces" "angle brackets" "vertical bars" ¥
  2782.                   "double bars" "ceiling" "floor"} delimType
  2783.     if {$delimType != "cancel"} then {
  2784.         switch $delimType {
  2785.             "parentheses" {
  2786.                 set leftDelim "("
  2787.                 set rightDelim ")"
  2788.             }
  2789.             "brackets" {
  2790.                 set leftDelim "¥["
  2791.                 set rightDelim "¥]"
  2792.             }
  2793.             "braces" {
  2794.                 set leftDelim "¥¥¥{"
  2795.                 set rightDelim "¥¥¥}"
  2796.             }
  2797.             "vertical bars" {
  2798.                 set leftDelim "|"
  2799.                 set rightDelim "|"
  2800.             }
  2801.             "double bars" {
  2802.                 set leftDelim "¥¥|"
  2803.                 set rightDelim "¥¥|"
  2804.             }
  2805.             "angle brackets" {
  2806.                 set leftDelim "¥¥langle"
  2807.                 set rightDelim "¥¥rangle"
  2808.             }
  2809.             "ceiling" {
  2810.                 set leftDelim "¥¥lceil"
  2811.                 set rightDelim "¥¥rceil"
  2812.             }
  2813.             "floor" {
  2814.                 set leftDelim "¥¥lfloor"
  2815.                 set rightDelim "¥¥rfloor"
  2816.             }
  2817.             default {
  2818.                 alertnote "¥"$delimType¥" not recognized"
  2819.                 return ""
  2820.             }
  2821.         }
  2822.         return [list $leftDelim $rightDelim]
  2823.     } else {return ""}
  2824. }
  2825. proc otherDelims {} {
  2826.     checkMathMode "otherDelims" 1
  2827.     set delims [getDelims]
  2828.     if {$delims != ""} then {
  2829.         set leftDelim [lindex $delims 0]
  2830.         set rightDelim [lindex $delims 1]
  2831.         delimitObject "$leftDelim" "$rightDelim･"
  2832.     }
  2833. }
  2834. proc {half-openInterval} {} {
  2835.     checkMathMode "half-openInterval" 1; delimitObject "(" "¥]･"
  2836. }
  2837. proc {half-closedInterval} {} {
  2838.     checkMathMode "half-closedInterval" 1; delimitObject "¥[" ")･"
  2839. }
  2840.  
  2841. proc insertBigDelims {leftDelim rightDelim isMultiline} {
  2842.     checkMathMode "insertBigDelims" 1
  2843.     if {$isMultiline} then {
  2844.         doWrapStructure $leftDelim "" $rightDelim
  2845.     } else {
  2846.         if { [wrapObject $leftDelim $rightDelim] } then {
  2847.             message "formula delimited"
  2848.         } else {
  2849.             message "enter formula"
  2850.         }
  2851.     }
  2852. }
  2853. proc bigParens {} {
  2854.     checkMathMode "bigParens" 1; insertBigDelims "¥¥left(" "¥¥right)･" 0
  2855. }
  2856. proc multiBigParens {} {
  2857.     checkMathMode "multiBigParens" 1; insertBigDelims "¥¥left(" "¥¥right)･" 1
  2858. }
  2859. proc bigBrackets {} {
  2860.     checkMathMode "bigBrackets" 1; insertBigDelims "¥¥left¥[" "¥¥right¥]･" 0
  2861. }
  2862. proc multiBigBrackets {} {
  2863.     checkMathMode "multiBigBrackets" 1; insertBigDelims "¥¥left¥[" "¥¥right¥]･" 1
  2864. }
  2865. proc bigBraces {} {
  2866.     checkMathMode "bigBraces" 1; insertBigDelims "¥¥left¥¥¥{" "¥¥right¥¥¥}･" 0
  2867. }
  2868. proc multiBigBraces {} {
  2869.     checkMathMode "multiBigBraces" 1; insertBigDelims "¥¥left¥¥¥{" "¥¥right¥¥¥}･" 1
  2870. }
  2871. proc bigAbsValue {} {
  2872.     checkMathMode "bigAbsValue" 1; insertBigDelims "¥¥left|" "¥¥right|･" 0
  2873. }
  2874. proc multiBigAbsValue {} {
  2875.     checkMathMode "multiBigAbsValue" 1; insertBigDelims "¥¥left|" "¥¥right|･" 1
  2876. }
  2877. proc doOtherBigDelims {name isMultiline} {
  2878.     checkMathMode $name 1
  2879.     set delims [getDelims]
  2880.     if {$delims != ""} then {
  2881.         append leftDelim "¥¥left" [lindex $delims 0]
  2882.         append rightDelim "¥¥right" [lindex $delims 1]
  2883.         insertBigDelims "$leftDelim" "$rightDelim･" $isMultiline
  2884.     }
  2885. }
  2886. proc otherBigDelims {} {
  2887.     doOtherBigDelims "otherBigDelims" 0
  2888. }
  2889. proc otherMultiBigDelims {} {
  2890.     doOtherBigDelims "otherMultiBigDelims" 1
  2891. }
  2892. proc bigLeftBrace {} {
  2893.     checkMathMode "bigLeftBrace" 1
  2894.     insertBigDelims "¥¥left¥¥¥{" "¥¥right.･" 0
  2895. }
  2896. proc multiBigLeftBrace {} {
  2897.     checkMathMode "multiBigLeftBrace" 1
  2898.     insertBigDelims "¥¥left¥¥¥{" "¥¥right.･" 1
  2899. }
  2900. proc doOtherMixedBigDelims {name isMultiline} {
  2901.     checkMathMode $name 1
  2902.     catch {prompt "Choose LEFT delimiter:" "parenthesis" "" "parenthesis" ¥
  2903.                   "bracket" "brace" "vertical bar" "double bar" ¥
  2904.                   "angle bracket" "ceiling" "floor" "slash" "backslash" ¥
  2905.                   "none"} delimType
  2906.     if {$delimType != "cancel"} then {
  2907.         switch $delimType {
  2908.             "parenthesis" {set leftDelim "("}
  2909.             "bracket" {set leftDelim "¥["}
  2910.             "brace" {set leftDelim "¥¥¥{"}
  2911.             "vertical bar" {set leftDelim "|"}
  2912.             "double bar" {set leftDelim "¥¥|"}
  2913.             "angle bracket" {set leftDelim "¥¥langle"}
  2914.             "ceiling" {set leftDelim "¥¥lceil"}
  2915.             "floor" {set leftDelim "¥¥lfloor"}
  2916.             "slash" {set leftDelim "/"}
  2917.             "backslash" {set leftDelim "¥¥backslash"}
  2918.             "none" {set leftDelim "."}
  2919.             default {
  2920.                 alertnote "¥"$delimType¥" not recognized"
  2921.                 return
  2922.             }
  2923.         }
  2924.         catch {prompt "Choose RIGHT delimiter:" "parenthesis" "" "parenthesis" ¥
  2925.                       "bracket" "brace" "vertical bar" "double bar" ¥
  2926.                       "angle bracket" "ceiling" "floor" "slash" "backslash" ¥
  2927.                       "none"} delimType
  2928.         if {$delimType != "cancel"} then {
  2929.             switch $delimType {
  2930.                 "parenthesis" {set rightDelim ")"}
  2931.                 "bracket" {set rightDelim "¥]"}
  2932.                 "brace" {set rightDelim "¥¥¥}"}
  2933.                 "vertical bar" {set rightDelim "|"}
  2934.                 "double bar" {set rightDelim "¥¥|"}
  2935.                 "angle bracket" {set rightDelim "¥¥rangle"}
  2936.                 "ceiling" {set rightDelim "¥¥rceil"}
  2937.                 "floor" {set rightDelim "¥¥rfloor"}
  2938.                 "slash" {set rightDelim "/"}
  2939.                 "backslash" {set rightDelim "¥¥backslash"}
  2940.                 "none" {set rightDelim "."}
  2941.                 default {
  2942.                     alertnote "¥"$delimType¥" not recognized"
  2943.                     return
  2944.                 }
  2945.             }
  2946.             insertBigDelims "¥¥left$leftDelim" "¥¥right$rightDelim･" $isMultiline
  2947.         }
  2948.     }
  2949. }
  2950. proc otherMixedBigDelims {} {
  2951.     doOtherMixedBigDelims "otherMixedBigDelims" 0
  2952. }
  2953. proc otherMultiMixedBigDelims {} {
  2954.     doOtherMixedBigDelims "otherMultiMixedBigDelims" 1
  2955. }
  2956.  
  2957. #--------------------------------------------------------------------------
  2958. # Accents:
  2959. #--------------------------------------------------------------------------
  2960.  
  2961. proc acute {} {
  2962.     checkMathMode "acute" 1
  2963.     if {[isSelection] > 1} then {
  2964.         alertnote "Warning: only a single character may be accented!"
  2965.     }
  2966.     if {[wrapObject "¥¥acute{" "}･"]} then {
  2967.         message "accent set"
  2968.     } else {
  2969.         message "enter one character"
  2970.     }
  2971. }
  2972. proc bar {} {
  2973.     checkMathMode "bar" 1
  2974.     if {[isSelection] > 1} then {
  2975.         alertnote "Warning: only a single character may be accented!"
  2976.     }
  2977.     if {[wrapObject "¥¥bar{" "}･"]} then {
  2978.         message "accent set"
  2979.     } else {
  2980.         message "enter one character"
  2981.     }
  2982. }
  2983. proc breve {} {
  2984.     checkMathMode "breve" 1
  2985.     if {[isSelection] > 1} then {
  2986.         alertnote "Warning: only a single character may be accented!"
  2987.     }
  2988.     if {[wrapObject "¥¥breve{" "}･"]} then {
  2989.         message "accent set"
  2990.     } else {
  2991.         message "enter one character"
  2992.     }
  2993. }
  2994. proc check {} {
  2995.     checkMathMode "check" 1
  2996.     if {[isSelection] > 1} then {
  2997.         alertnote "Warning: only a single character may be accented!"
  2998.     }
  2999.     if {[wrapObject "¥¥check{" "}･"]} then {
  3000.         message "accent set"
  3001.     } else {
  3002.         message "enter one character"
  3003.     }
  3004. }
  3005. proc dot {} {
  3006.     checkMathMode "dot" 1
  3007.     if {[isSelection] > 1} then {
  3008.         alertnote "Warning: only a single character may be accented!"
  3009.     }
  3010.     if {[wrapObject "¥¥dot{" "}･"]} then {
  3011.         message "accent set"
  3012.     } else {
  3013.         message "enter one character"
  3014.     }
  3015. }
  3016. proc ddot {} {
  3017.     checkMathMode "ddot" 1
  3018.     if {[isSelection] > 1} then {
  3019.         alertnote "Warning: only a single character may be accented!"
  3020.     }
  3021.     if {[wrapObject "¥¥ddot{" "}･"]} then {
  3022.         message "accent set"
  3023.     } else {
  3024.         message "enter one character"
  3025.     }
  3026. }
  3027. proc grave {} {
  3028.     checkMathMode "grave" 1
  3029.     if {[isSelection] > 1} then {
  3030.         alertnote "Warning: only a single character may be accented!"
  3031.     }
  3032.     if {[wrapObject "¥¥grave{" "}･"]} then {
  3033.         message "accent set"
  3034.     } else {
  3035.         message "enter one character"
  3036.     }
  3037. }
  3038. proc hat {} {
  3039.     checkMathMode "hat" 1
  3040.     if {[isSelection] > 1} then {
  3041.         alertnote "Warning: only a single character may be accented!"
  3042.     }
  3043.     if {[wrapObject "¥¥hat{" "}･"]} then {
  3044.         message "accent set"
  3045.     } else {
  3046.         message "enter one character"
  3047.     }
  3048. }
  3049. proc tilde {} {
  3050.     checkMathMode "tilde" 1
  3051.     if {[isSelection] > 1} then {
  3052.         alertnote "Warning: only a single character may be accented!"
  3053.     }
  3054.     if {[wrapObject "¥¥tilde{" "}･"]} then {
  3055.         message "accent set"
  3056.     } else {
  3057.         message "enter one character"
  3058.     }
  3059. }
  3060. proc vec {} {
  3061.     checkMathMode "vec" 1
  3062.     if {[isSelection] > 1} then {
  3063.         alertnote "Warning: only a single character may be accented!"
  3064.     }
  3065.     if {[wrapObject "¥¥vec{" "}･"]} then {
  3066.         message "accent set"
  3067.     } else {
  3068.         message "enter one character"
  3069.     }
  3070. }
  3071.  
  3072. proc widehat {} {
  3073.     checkMathMode "widehat" 1
  3074.     if {[isSelection] > 3} then {
  3075.         alertnote "Warning: only a few characters may be accented!"
  3076.     }
  3077.     if {[wrapObject "¥¥widehat{" "}･"]} then {
  3078.         message "accent set"
  3079.     } else {
  3080.         message "enter a few characters"
  3081.     }
  3082. }
  3083. proc widetilde {} {
  3084.     checkMathMode "widetilde" 1
  3085.     if {[isSelection] > 3} then {
  3086.         alertnote "Warning: only a few characters may be accented!"
  3087.     }
  3088.     if {[wrapObject "¥¥widetilde{" "}･"]} then {
  3089.         message "accent set"
  3090.     } else {
  3091.         message "enter a few characters"
  3092.     }
  3093. }
  3094.  
  3095. proc imath {} {checkMathMode "imath" 1; insertObject "¥¥imath"}
  3096. proc jmath {} {checkMathMode "jmath" 1; insertObject "¥¥jmath"}
  3097.  
  3098. #--------------------------------------------------------------------------
  3099. # Grouping:
  3100. #--------------------------------------------------------------------------
  3101.  
  3102. proc underline {} {
  3103.     checkMathMode "underline" 1
  3104.     if {[wrapObject "¥¥underline{" "}･"]} then {
  3105.         message "selection underlined"
  3106.     } else {
  3107.         message "enter text"
  3108.     }
  3109. }
  3110. proc overline {} {
  3111.     checkMathMode "overline" 1
  3112.     if {[wrapObject "¥¥overline{" "}･"]} then {
  3113.         message "selection overlined"
  3114.     } else {
  3115.         message "enter text"
  3116.     }
  3117. }
  3118. proc underbrace {} {
  3119.     checkMathMode "underbrace" 1
  3120.     if {[wrapObject "¥¥underbrace{" "}･"]} then {
  3121.         message "selection underbraced"
  3122.     } else {
  3123.         message "enter text"
  3124.     }
  3125. }
  3126. proc overbrace {} {
  3127.     checkMathMode "overbrace" 1
  3128.     if {[wrapObject "¥¥overbrace{" "}･"]} then {
  3129.         message "selection overbraced"
  3130.     } else {
  3131.         message "enter text"
  3132.     }
  3133. }
  3134. proc overrightarrow {} {
  3135.     checkMathMode "overrightarrow" 1
  3136.     if {[wrapObject "¥¥overrightarrow{" "}･"]} then {
  3137.         message "selection overrightarrowed"
  3138.     } else {
  3139.         message "enter text"
  3140.     }
  3141. }
  3142. proc overleftarrow {} {
  3143.     checkMathMode "overleftarrow" 1
  3144.     if {[wrapObject "¥¥overleftarrow{" "}･"]} then {
  3145.         message "selection overleftarrowed"
  3146.     } else {
  3147.         message "enter text"
  3148.     }
  3149. }
  3150. proc stackrel {} {
  3151.     checkMathMode "stackrel" 1
  3152.     set currentPos [getPos]
  3153.     if {[insertObject "¥¥stackrel{･}{･}･"]} then {
  3154.         goto $currentPos
  3155.         nextTabStop
  3156.         message "1st arg scriptstyle"
  3157.     }
  3158. }
  3159.  
  3160. #--------------------------------------------------------------------------
  3161. # Spacing:
  3162. #--------------------------------------------------------------------------
  3163.  
  3164. proc negThin {} {checkMathMode "negThin" 1; insertObject "¥¥!"}
  3165. proc thin {} {checkMathMode "thin" 1; insertObject "¥¥,"}
  3166. proc medium {} {checkMathMode "medium" 1; insertObject "¥¥:"}
  3167. proc thick {} {checkMathMode "thick" 1; insertObject "¥¥;"}
  3168. proc quad {} {checkMathMode "quad" 1; insertObject "¥¥quad"}
  3169. proc qquad {} {checkMathMode "qquad" 1; insertObject "¥¥qquad"}
  3170. proc hspace {} {
  3171.     checkMathMode "hspace" 1
  3172.     if {[wrapObject "¥¥hspace{" "}･"]} then {
  3173.         message "spacing set"
  3174.     } else {
  3175.         message "enter the desired horizontal spacing"
  3176.     }
  3177. }
  3178. proc vspace {} {
  3179.     checkMathMode "vspace" 1
  3180.     if {[wrapObject "¥¥vspace{" "}･"]} then {
  3181.         message "spacing set"
  3182.     } else {
  3183.         message "enter the desired horizontal spacing"
  3184.     }
  3185. }
  3186. proc hfill {} {checkMathMode "hfill" 1; insertObject "¥¥hfill"}
  3187. proc vfill {} {checkMathMode "vfill" 1; insertObject "¥¥vfill"}
  3188. proc smallskip {} {checkMathMode "smallskip" 1; insertObject "¥¥smallskip"}
  3189. proc medskip {} {checkMathMode "medskip" 1; insertObject "¥¥medskip"}
  3190. proc bigskip {} {checkMathMode "bigskip" 1; insertObject "¥¥bigskip"}
  3191.  
  3192.